home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / CS86.D81 / v2.80col.pntrs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  129 lines
  1. 0 IFA=1THEN10
  2. 1 IFA=2THEN17
  3. 2 POKE53280,3:POKE53281,3:PRINTCHR$(14):POKE646,6:PRINT"[147]"
  4. 3 PRINT"   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  5. 4 PRINT"   [171]   [195]ONVERT [199][197][207][211] ICONS TO [199][197][207][211]  [179]"
  6. 5 PRINT"   [171]    [195]128/80 COLUMN [208][207][201][206][212][197][210][211]    [179]"
  7. 6 PRINT"   [171]          [214]ERSION 2.0          [179]"
  8. 7 PRINT"   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  9. 9 IFA=0THENA=1:LOAD"CODE1 POINTERS",8,1
  10. 10 IFA=1THENA=2:LOAD"CODE2 POINTERS",8,1
  11. 17 POKE52,32:POKE56,32
  12. 18 GOTO600
  13. 19 Y=50176:FORX=1TOLEN(SS$):V=ASC(MID$(SS$,X,1))
  14. 20 POKEY,V:Y=Y+1:NEXT:POKE50192,LEN(SS$):IFLEN(S$)>12THENS$=LEFT$(S$,12)
  15. 21 D$="?."+S$+",U,W":GOSUB204:IFFL=1THEN600
  16. 22 Z=49959:Y=49939
  17. 23 FORX=1TOLEN(D$):V=ASC(MID$(D$,X,1)):POKEY,V:Y=Y+1:NEXT:POKEZ,LEN(D$)
  18. 24 GOTO300
  19. 50 PRINT"[212]YPE ANY KEY TO CONTINUE"
  20. 51 PRINT"                        "
  21. 52 POKE198,0:WAIT198,1:POKE198,0:RETURN
  22. 100 PRINT"[147][212]HIS CONVERTER IS DESIGNED TO USE ONE   DRIVE ONLY AND IT MUST ";
  23. 102 PRINT"NOT BE A 1581."
  24. 104 PRINT"[193]NY ICON MAY BE CONVERTED TO A POINTER  FOR [195]128/80 COLUMN MODE ";
  25. 106 PRINT"BUT AS THE      NORMALLY 24X21 BIT SPRITE IS COMPRESSED TO 16X8 BITS, ";
  26. 108 PRINT"MOST CONVERSIONS WILL     RESULT IN A DIMINUTIVE, HARDLY  ";
  27. 110 PRINT"        RECOGNISABLE VERSION OF ITS ORIGINAL."
  28. 112 GOSUB50
  29. 116 PRINT"[147][212]HIS VERSION OF THE CONVERTER, USING    THREE DIFFERENT ";
  30. 118 PRINT"ALGORITHMS, CONVERTS THEICON TO THREE SELECTABLE POINTERS ";
  31. 119 PRINT"FOR   USE BY [199][197][207][211] IN 80 COLUMN MODE."
  32. 120 PRINT"[212]HE FIRST RESULT IS A PROPORTIONAL      COMPRESSION OF THE ORIGINAL";
  33. 121 PRINT" ICON,":PRINT"(AN 8X7 POINTER),"
  34. 122 PRINT"WHILST THE OTHER TWO COMPRESS EVERY 3   BITS OF THE WIDTH INTO 2 BITS."
  35. 123 PRINT"[212]HE THIRD DEALS WITH THE 8 BITS ALLOWED FOR THE LENGTH IN A ";
  36. 124 PRINT"MORE FLEXIBLE MANNERTHAN DOES THE SECOND SOMETIMES RESULTINGIN ";
  37. 125 PRINT"A MORE SOLID LOOKING POINTER."
  38. 126 PRINT"(OPTIONS 2 AND 3 PRODUCE A 16X7         POINTER)"
  39. 127 GOSUB50
  40. 130 PRINT"[147][212]HE HIGHLIGHT FEATURE OVERCOMES THE     PROBLEM OF HAVING A POINTER";
  41. 134 PRINT" WHICH       DISAPPEARS INTO THE BACKGROUND OF       REVERSED ";
  42. 136 PRINT"ICONS, AS MANY OF THE POINTERS DESIGNED FOR 80 COLUMN MODE SEEM TO DO."
  43. 137 GOSUB50
  44. 140 PRINT"[147][212]HE PROGRAM ALLOWS EACH FILE TO BE      CONVERTED THREE TIMES TO ";
  45. 141 PRINT"THE SAME WORK  DISK ";
  46. 142 PRINT"AND THE ORIGINAL ICON AND ITS      SUPPORTING CODE ARE NOT ";
  47. 150 PRINT"ALTERED IN ANY  WAY."
  48. 151 PRINT"[194]EFORE USING THIS PROGRAM ";
  49. 152 PRINT"ALL ICONS TO  BE CONVERTED SHOULD BE TRANSFERRED TO A WORK DISK.";
  50. 154 PRINT" [193]LL OPERATIONS TAKE PLACE ON THIS DISK.[206]O DISK SWOPPING ";
  51. 156 PRINT"IS NECESSARY."
  52. 160 PRINT"[193]LL FILE NAMES ON THE WORK DISK SHOULD  BE CHANGED, WHERE ";
  53. 162 PRINT"NECESSARY, BEFORE     LEAVING THE [199][197][207][211] ENVIRONMENT, TO UPPER ";
  54. 164 PRINT" CASE CHARACTERS ONLY TO PREVENT A ";
  55. 165 PRINT"[198][201][204][197]  [206][207][212][160][198][207][213][206][196] ERROR WHEN THE CONVERTER      ATTEMPTS TO LOAD THE ";
  56. 166 PRINT"RELATED ICON."
  57. 167 GOSUB50
  58. 168 PRINT"[147][212]HIS CONVERTER WRITES THE NEW FILE TO   THE WORK DISK WITH AN ";
  59. 169 PRINT"ICON IDENTICAL TO THAT OF THE ORIGINAL."
  60. 171 PRINT"[208]LEASE CHECK THE [201][206][198][207][160][194][207][216] OF CONVERTED  POINTERS WHEN RETURNING TO ";
  61. 173 PRINT"THE [199][197][207][211]     ENVIRONMENT. [193]N ATTEMPT HAS BEEN MADE TOCREDIT THE ";
  62. 174 PRINT"ORIGINATOR OF EACH ICON WITH ITS DESIGN BUT, DEPENDING UPON THE ";
  63. 175 PRINT"     APPLICATION FROM WHICH IT WAS DERIVED,  THE [201][206][198][207][160][194][207][216] MAY NEED ";
  64. 176 PRINT"EDITING.":GOSUB50
  65. 180 GOTO542
  66. 200 SS$=S$+"*":OPEN15,8,15:OPEN4,8,4,SS$+",P,R":CLOSE4
  67. 201 INPUT#15,A,B$,C,D:IFA=64THENSS$=SS$+",U,R":CLOSE15:POKE2,150:GOTO19
  68. 202 IFA=62THENCLOSE15:PRINT"[147]"B$:FORT=1TO2000:NEXT:GOTO542
  69. 203 CLOSE15:GOTO19
  70. 204 D1$=LEFT$(D$,(LEN(D$)-4)):D1$=D1$+",U,R":OPEN15,8,15:OPEN4,8,4,D1$:CLOSE4
  71. 208 INPUT#15,A,B$,C,D:IFA=0THENPRINT"[147][198][201][204][197][160][197][216][201][211][212][211]":FORT=1TO2000:NEXT:FL=1
  72. 209 CLOSE15:RETURN
  73. 300 DD$=D$
  74. 302 OPEN15,8,15
  75. 308 PRINT#15,"I":CLOSE15
  76. 490 PRINT"[147][206][207][215][160][195][207][206][214][197][210][212][201][206][199][160]"S$
  77. 491 PRINT"TO "DD$
  78. 501 SYS49408:PRINT"[147]":POKE53281,3:POKE53280,3:POKE646,6:POKE53269,0
  79. 502 OPEN15,8,15,"UJ":FORT=1TO1000:NEXT:CLOSE15
  80. 542 PRINT"      [212]YPE [197][146] TO END OR [210][197][212][213][210][206] TO                 CONTINUE CONVERSION"
  81. 545 POKE198,0:A$="":INPUTA$:IFA$="E"THEN560
  82. 546 PRINT"[147]":CLR:GOTO600
  83. 560 PRINT"[147][208]ROGRAMMED FOR THE [208][213][194][204][201][195][160][196][207][205][193][201][206]
  84. 561 [153]"AT THE REQUEST OF "
  85. 562 [153]"(null)ETER LEFT$UNT, CHR$EOLEN(null)(null)PEEK, (null)(null)"
  86. 563 [153]"BY
  87. 564 PRINT"[196]OREEN [200]ORNE
  88. 566 [153]"PEEKRISBANE, ATNUSTRALIA."
  89. 568 [153]"MID$UNE 1995
  90. 570 END
  91. 600 PRINT"[212]YPE Y[146] TO ACCESS INFORMATION SCREENS OR [210][197][212][213][210][206] TO CONTINUE":FL=0
  92. 601 POKE2,0:A$="":INPUTA$:IFA$="Y"THEN100
  93. 610 PRINT"[147][215]ITH WORK DISK IN DRIVE"
  94. 612 PRINT"[212]YPE NAME OF FILE TO LOAD OR TYPE
  95. 613 [153]"(null)VAL(null)(null)(null)(null) TO ACCESS DIRECTORY"
  96. 614 S1$[178]"":[133]S1$:[139]S1$[178]""[167]700
  97. 616 S$[178]S1$:[137]200
  98. 680 [139]FF[178]2[167]542
  99. 681 [139]FF[179]4[167][141]693
  100. 682 [139]S$[178]"Q"[167]542
  101. 683 [139][195](S$)[177]16[167]S$[178][200](S$,16)
  102. 684 [139][201](S$,1)[178][199](32)[167]S$[178][200](S$,([195](S$)[171]1)):[137]684
  103. 685 [137]200
  104. 689 [153]"(null)YPE (null)VAL(null)(null)(null)(null) TO LIST MORE FILES OR        (null)(null)ATNLENVAL TO SELECT FILE"
  105. 690 [151]198,0:[146]198,1:A[178][194](631)
  106. 691 [139]A[179][177]32[167][142]
  107. 693 S$[178]"":[153]"(null)LACE CURSOR ON NAME OF FILE TO "
  108. 694 [153]"CONVERT AND TYPE (null)VAL(null)(null)(null)(null)"
  109. 695 [153]"OR TYPE (null)WAIT TO QUIT"
  110. 696 S$[178]"":[133]S$:[139]S$[178]""[167]696
  111. 697 [139]S$[178]"Q"[167]FF[178]2:[142]
  112. 698 FF[178]4:[142]
  113. 700 [153]"LOADASCILES ON THIS DISK ARE:":[153]
  114. 702 [159]1,8,0,"$0":C[178]0:FF[178]0:N$[178]""
  115. 704 [129]K[178]1[164]31:[161]#1,A$:[130]
  116. 705 N$[178]"":[129]K[178]1[164]4:[161]#1,A$:[130]:[139]ST[179][177]0[167][160]1:[137]680
  117. 706 [139]ST[178]0[175]C[178]8[167]C[178]0:[141]689:[139]FF[177]1[167][160]1:[137]680
  118. 707 [129]K[178]1[164]28
  119. 708 [161]#1,A$:[139]ST[177]0[167][160]1:[137]680
  120. 709 [139]A$[178][199](34)[167]716
  121. 710 [139]A$[179][199](32)[167]716
  122. 715 N$[178]N$[170]A$
  123. 716 [130]:[139][200](N$,12)[178]"BLOCKS FREE."[167]N$[178]"(null)(null)CLOSEASC(null)(null)(null)LEFT$VAL(null)CLOSEASCRIGHT$(null)VAL(null)":[137]720
  124. 717 [139][200](N$,1)[178][199](32)[167]N$[178][201](N$,([195](N$)[171]1)):[137]717
  125. 718 [139][201](N$,1)[178][199](32)[167]N$[178][200](N$,([195](N$)[171]1)):[137]718
  126. 719 N$[178][200](N$,([195](N$)[171]3))
  127. 720 [153]N$:C[178]C[170]1:FF[178]1:[137]705
  128. 5000 [159]15,8,15:[132]15,A,B$,C,D:[153]A,B$,C,D:[160]15
  129.