home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / addrlabl.arc / ADDRLABL.PRG (.txt)
Encoding:
Commodore BASIC  |  1993-04-03  |  1.6 KB  |  60 lines
  1. 100 PRINT"[147]":POKE 53280,0:POKE 53281,1: DIM AE$(200):PRINT
  2. 200 PRINT TAB(10);"[169]  "
  3. 300 PRINT TAB(10);" [146]   [146][169]
  4. 400 [153] [163]10);" WAIT   (null)WAITOMMODORE LEN 128
  5. 500 PRINT TAB(10);"[223]  "
  6. 600 FOR A = 1 TO 3:PRINT:NEXT A
  7. 700 PRINT TAB(7);"A D D R E S S"
  8. 800 PRINT TAB(13);"L A B E L"
  9. 900 PRINT TAB(21);"P R I N T E R"
  10. 1000 FOR A = 1 TO 4:PRINT:NEXT A
  11. 1100 PRINT TAB(8);"DESIGNED BY.... SCOTT MCKNIGHT[146]  "
  12. 1200 PRINT TAB(11);"[156]COPYRIGHT [144](C) [156]1986"
  13. 1300 REM FOR D=1 TO 3000:NEXT D
  14. 1400 GOSUB 5100
  15. 1500 PRINT"[147]":POKE 53280,0:POKE 53281,6
  16. 1550 OPEN4,4
  17. 1600 PRINT"[145]RETURN ADDRESS:  ENTER NAME
  18. 1700 [133] A$
  19. 1800 [153]"ONONRETURN ADDRESS:  ENTER STREET ADDRESS"
  20. 1900 [133]"";B$
  21. 2000 [153]"ONONONRETURN ADDRESS:  ENTER CITY/STATE/ZIP"
  22. 2100 [133]"";C$
  23. 2110 [153]"ONONONONRETURN ADDRESS:                        "
  24. 2200 [153]"FORWARDING ADDRESS:  NAME"
  25. 2300 [133] D$
  26. 2400 [153]"ONONFORWARDING ADDRESS:  STREET ADDRESS"
  27. 2500 [133]"";E$
  28. 2600 [153]"ONONONFORWARDING ADDRESS:  CITY/STATE/ZIP"
  29. 2700 [133]"";F$
  30. 2800 G$[178]"       ":ESC$[178][199](27)
  31. 2810 T0$[178]"  TO:  "
  32. 3000 [153]"PLEASE TURN ON PRINTER"
  33. 3100 [152]4,ESC$[199](64)
  34. 3200 [153]"ONSETUP PRINTER AND HIT ANY KEY..."
  35. 3300 [161] H$:[139] H$[178]""[167]3200
  36. 3400 [143]  PRINTING LABELS
  37. 3500 [133]"HOW MANY LABELS WOULD YOU LIKE TO PRINT";N$
  38. 3600 N[178][197](N$)
  39. 3700 [139] N[179]1 [167] [153]"ONON":[137] 3500
  40. 3800 [129] CT[178]1 [164] N
  41. 3900 [152]4,ESC$[199](66)[199](3)ESC$[199](83)[199](1)ESC$[199](51)[199](12);
  42. 4000 [152]4,A$:[152]4,B$:[152]4,C$:[152]4,""
  43. 4100 [152]4,ESC$[199](84)ESC$[199](66)[199](2)ESC$[199](71)
  44. 4200 [152]4,G$D$:[152]4," "
  45. 4300 [152]4,T0$E$:[152]4," "
  46. 4400 [152]4,G$F$:[152]4," "
  47. 4500 [152]4,ESC$[199](72)"  "
  48. 4600 [130]
  49. 4700 [153]"LOADPRINT ANOTHER LABEL YWAIT/NWAIT"
  50. 4800 [161] AL$:[139] AL$[178]"" [167] 4800
  51. 4900 [139] AL$[178]"Y" [167] 1600
  52. 5000 [153]"LOAD":[128]
  53. 5100 [143]
  54. 5200 NM$[178]"ON          CONTHIT LISTANY SYSKEY TO STOPSTART"
  55. 5300 [153]""
  56. 5400 [161] ZX$:[139]ZX$[179][177]""[167] [142]
  57. 5500 [153]NM$
  58. 5600 [153]"ON                                       "
  59. 5700 [137] 5400
  60.