home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / BANNER-MAKER!!! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  102 lines
  1. 1 REM**********************************
  2. 2 REM*                                *
  3. 3 REM*      COMPUMAGIC! BY JERRY!     *
  4. 4 REM*                                *
  5. 5 REM**********************************
  6. 6 PRINT "รด"
  7. 10 INPUT "HORIZONTAL";X
  8. 20 INPUT "VERTICAL";Y
  9. 21 INPUT "CENTERED";L$
  10. 22 G1=0: IF L$>"P" THEN G1=1
  11. 23 INPUT "CHARACTER";M$
  12. 29 PRINT "STATEMENT";
  13. 30 INPUT A$
  14. 35 INPUT "SET PAGE";O$
  15. 36 OPEN 1,4:CMD1
  16. 40 A=ASC(LEFT$(A$,1))
  17. 50 REM
  18. 60 REM
  19. 70 FOR T=1 TO LEN(A$)
  20. 80 P$=MID$(A$,T,1)
  21. 90 FOR O=1 TO 50
  22. 95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
  23. 96 IF P$=" " THEN 812
  24. 100 IF P$=S$ THEN 200
  25. 120 NEXT O
  26. 200 RESTORE
  27. 201 X$=M$
  28. 202 IF M$="ALL" THEN X$=S$
  29. 205 FOR U=1 TO 7
  30. 210 FOR K=8 TO 0 STEP -1
  31. 230 IF 2^K<S(U) THEN 270
  32. 240 J(9-K)=0
  33. 250 GOTO 280
  34. 270 J(9-K)=1: S(U)=S(U)-2^K
  35. 272 IF S(U)=1 THEN 815
  36. 280 NEXT K
  37. 445 FOR T1=1 TO X
  38. 447 PRINT TAB((63-4.5*Y)*G1/(LEN(X$))+1);
  39. 450 FOR B=1 TO F(U)
  40. 460 IF J(B)=0 THEN 500
  41. 465 FOR I=1 TO Y: PRINT X$;: NEXT I
  42. 470 GOTO 600
  43. 500 FOR I=1 TO Y
  44. 510 FOR I1=1 TO LEN(X$)
  45. 520 PRINT " ";: NEXT I1
  46. 530 NEXT I
  47. 600 NEXT B
  48. 620 PRINT
  49. 630 NEXT T1
  50. 700 NEXT U
  51. 750 FOR H=1 TO 2*X: PRINT: NEXT H
  52. 800 NEXT T
  53. 806 FOR H=1 TO 75: PRINT: NEXT H
  54. 810 END
  55. 812 FOR H=1 TO 7*X: PRINT: NEXT H
  56. 813 GOTO 800
  57. 815 F(U)=9-K: GOTO 445
  58. 899 DATA " ",0,0,0,0,0,0,0
  59. 900 DATA "A",505,37,35,34,35,37,505
  60. 901 DATA "G",125,131,258,258,290,163,101
  61. 902     
  62. 903 DATA "T",2,2,2,512,2,2,2
  63. 904 DATA "W",256,257,129,65,129,257,256
  64. 905 DATA "L",512,257,257,257,257,257,257
  65. 906 DATA "S",69,139,274,274,274,163,69
  66. 907 DATA "O",125,131,258,258,258,131,125
  67. 908 DATA "N",512,7,9,17,33,193,512
  68. 909 DATA"F",512,18,18,18,18,2,2
  69. 910 DATA "K",512,17,17,41,69,131,258
  70. 911 DATA "B",512,274,274,274,274,274,239
  71. 912 DATA "D",512,258,258,258,258,131,125
  72. 913 DATA "H",512,17,17,17,17,17,512
  73. 914 DATA "M",512,7,13,25,13,7,512
  74. 915 DATA "?",5,3,2,354,18,11,5
  75. 916 DATA "U",128,129,257,257,257,129,128
  76. 9 DATA "R",512,18,18,50,82,146,271
  77. 918 DATA "P",512,18,18,18,18,18,15
  78. 919 DATA "Q",125,131,258,258,322,131,381
  79. 920 DATA "Y",8,9,17,481,17,9,8
  80. 921 DATA "V",64,65,129,257,129,65,64
  81. 922 DATA "X",388,69,41,17,41,69,388
  82. 923 DATA "Z", 386,322,290,274,266,262,260
  83. 924 DATA "I",258,258,258,512,258,258,258
  84. 925 DATA "C",125,131,258,258,258,131,69
  85. 926 DATA "J",65,129,257,257,257,129,128
  86. 927 DATA "1",0,0,261,259,512,257,257
  87. 928 DATA "2",261,387,322,290,274,267,261
  88. 929 DATA "*",69,41,17,512,17,41,69
  89. 930 DATA "3",66,130,258,274,266,150,100
  90. 931 DATA "4",33,49,41,37,3    
  91. 932 DATA "5",160,274,274,274,274,274,226
  92. 933 DATA "6",194,291,293,297,305,289,193
  93. 934 DATA "7",258,130,66,34,18,10,8
  94. 935 DATA "8",69,171,274,274,274,171,69
  95. 936 DATA "9",263,138,74,42,26,10,7
  96. 937 DATA "=",41,41,41,41,41,41,41
  97. 938 DATA "!",1,1,1,384,1,1,1
  98. 939 DATA "0",57,69,131,258,131,69,57
  99. 940 DATA ".",1,1,129,449,129,1,1
  100. 1000 CLOSE1
  101. 1002 END
  102.