home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / VIDIO-LABEL-MAKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  83 lines
  1. 1 TP$="[182]":V$="[187]"
  2. 2 EX$=CHR$(27)+CHR$(14):RX$=CHR$(27)+CHR$(20)
  3. 10 PRINT"[147]                                
  4. 20 [153]"  (C) 1987      (null)AMBERT ABS<LEIN  ":[153]"                                
  5. 40 LG=50:LL=LG+12:DL=LL+4:FORT=1TOLL:T$=T$+"[183]":NEXT:T$=" [146]"+T$+" [146]
  6. 70 [129]T[178]1[164]LL:B$[178]B$[170]"TO":[130]:B$[178]" WAIT"[170]B$[170]" WAIT":[129]T[178]1[164]LL:S$[178]S$[170]" ":[130]:S$[178]"SGN"[170]S$[170]"ABS
  7. 110 R=18:CL$="[146]
  8. 130 HL$[178]"                                                                       
  9. 140 CL$=CL$+HL$+CL$:PRINT"[147]"
  10. 145 PRINT"      [154][169]                         "
  11. 170 PRINT"        HOW MANY MOVIES ON THIS ":PRINT"             VIDIO TAPE?        [146]
  12. 180 [153]"                                WAITCONT"
  13. 190 [153]"      STEP                        WAITSTEP"
  14. 199 [153]:[151]53280,0:[151]53281,0:[153]"":[129]X[178]1[164]40
  15. 220 [153]"(null)";:[130]:[129]X[178]1[164]40:[153]"CONTSGN ";::[130]:[129]X[178]1[164]40:[153]"(null)";:[130]:
  16. 300 [153]"WAIT  - (null)(null)IDIO (null)(null)(null)(null)OVIES LOGWAITABEL (null)(null)(null)(null)AKER -  "
  17. 305 [153]"ONON"[163]21)"GET"
  18. 310 [153]"";:[129]X[178]1[164]40::[153]"SYS(null)";:[130]:
  19. 312 [129]X[178]1[164]6:[153]"SYS(null)"[166]38)"(null)";:[130]
  20. 360 RR$[178][199](R)
  21. 370 R[178]146[170]18[171]R:[161]N$:[139]N$[178]""[167][153][199](R);:SP$[178]TP$:TP$[178]V$:V$[178]SP$:
  22. 380 [153]""[163]24)RR$"SIN"[199](R)"SIN";
  23. 385 [153]"";:[129]X[178]1[164]40::[153]"SYS(null)";:[130]:
  24. 390 N[178][197](N$):[139]N[177]9[167]310
  25. 400 [139]N[179]1[167]310
  26. 410 [153]""[163]24);N:[129]X[178]1[164]N:[153]CL$[163]2);:[153]"MOVIE # "X" ";:[133]M$:M$[178]":"[170]M$[170]":
  27. 420 SC$(X)=M$
  28. 425 IFLEN(SC$(X))<16+L  THENSC$(X) ="-"+SC$(X):GOTO425
  29. 430 IFLEN(SC$(X))<33THENSC$(X)=SC$(X) +"-":GOTO430
  30. 450 RT$="[160] [160]"
  31. 460 PRINTCL$TAB(2)"RATING      ";:INPUTRT$:PRINTCL$;TAB(2);"[154]COUNTER #   ";:INPUTC$:L=LEN(M$)
  32. 465 L(X)=L
  33. 480 IFL<27THEN555
  34. 490 K=LG/2-(L/2-1):FORS=1TOK:M$="[214]"+M$:NEXT
  35. 510 IFLEN(M$)<LGTHENM$=M$+"[214]":GOTO510
  36. 520 M$=LEFT$(M$,LG):M$(X)=M$:
  37. 522 :RT$="("+RT$:
  38. 550 IFLEN(RT$)<5THENRT$=" "+RT$:GOTO550
  39. 552 GOTO560
  40. 555 K=LG/4-(L/2-1):FORS=1TOK:M$="[214]"+M$:NEXT
  41. 556 IFLEN(M$)<LG/2 THENM$=M$+"[214]":GOTO556
  42. 558 EX(X)=1:M$(X)=M$:   :GOTO522
  43. 560 RT$=RT$+")":RT$=RIGHT$(RT$,6):RT$(X)=RT$
  44. 580 IFLEN(C$)<4THENC$="0"+C$:GOTO580
  45. 583 :M$="":
  46. 590 C$=RIGHT$(C$,4):C$=" "+C$:C$(X)=C$:NEXT:GOSUB890:OPEN4,4:PRINT#4,CHR$(27)+CHR$(1);:PRINT#4,CHR$(27)+CHR$(69);
  47. 660 PRINT#4,CHR$(27)+CHR$(65)+CHR$(7);:PRINT#4,CHR$(27)+CHR$(52);:FORX=1TODL:PRINT#4,"[168]";:NEXT:PRINT#4:PRINT#4:PRINT#4:PRINT#4,T$
  48. 700 FORX=1TON:PRINT#4,"[180]";
  49. 702 IFEX(X)=1THENPRINT#4,EX$;
  50. 705 PRINT#4,M$(X);
  51. 707 PRINT#4,RX$;
  52. 710 PRINT#4,RT$(X)C$(X);:PRINT#4," [182]":PRINT#4,S$:NEXT:PRINT#4,B$:FORD=1TO14-N:PRINT#4:NEXT
  53. 780 PRINT#4,T$
  54. 782 FORX=1TON:PRINT#4,"[180]";
  55. 784 IFEX(X)=1THENPRINT#4,EX$;
  56. 785 PRINT#4,M$(X);
  57. 786 PRINT#4,RX$;
  58. 787 PRINT#4,RT$(X)C$(X);:PRINT#4," [182]":PRINT#4,S$:NEXT:PRINT#4,B$:
  59. 860 PRINT#4:FORX=1TODL:PRINT#4,"[168]";:NEXT:PRINT#4:CLOSE4:GOTO980
  60. 890 PRINT:PRINT"[153][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:FORX=1TON
  61. 900 L=L(X)
  62. 930 PRINT"[180][154]"LEFT$(SC$(X),33);""RIGHT$(C$(X),5)"[153][182]";
  63. 940 PRINT"[180]                                      [182]";:NEXT
  64. 960 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
  65. 962 :RETURN
  66. 980 PRINT"[159]                                       "
  67. 990 PRINT"     CUT OUT AND FOLD SO THAT          "
  68. 1000 PRINT"   THE BOTTEM HALF WILL SHOW ON        
  69. 1010 [153]"   THE EDGE OF THE VIDIO BOX OR        
  70. 1020 PRINT"   CONTAINER.                          
  71. 1030 [153]"                                       
  72. 1040 PRINT"     TAPE OR GLUE ON WITH THE LABEL    
  73. 1050 [153]"  SHOWING ON TOP AND EDGE.             
  74. 1060 PRINT"                                       ":PRINT"[154]
  75. 1080 [153]"        ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND   
  76. 1090 PRINT"       [206]                        [206][181]  
  77. 1100 [153]"      (null)      TOP   LABEL  CONT     (null) INT
  78. 1110 PRINT"     [206]                        [206]  [181]":PRINT"     [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]  [206]
  79. 1130 [153]"     SGN      EDGE  LABEL CONT     ABS (null)":[153]"     (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR(null)
  80. 1200 GETA$:IFA$=""THEN1200
  81. 1210 RUN
  82. 6682 
  83.