50HGR:HCOLOR =5
60DATA 20,30,30,30,20,30,20,50,20,50,30,50,40,30,40,50,50,30,50,50,40,40,50,40,60,30,60,50,60,30,70,30,60,40,65,40,60,50,70,50
70DATA 80,30,80,50,80,30,90,30,80,50,90,50,100,30,100,50,110,30,100,40,100,40,110,50,120,30,120,50,120,50,125,40,125,40,130,50,130,50,130,3
80DATA 140,30,140,50,140,30,150,30,150,30,150,40,150,40,140,40,142,40,150,50,160,30,160,50,175,30,175,50,168,30,182,30,190,30,190,50,190,30
82DATA 210,30,220,30,210,40,220,40,220,30,220,40,212,40,220,50
85FOR i=0 TO 36
90READ a, b, c, d
95HPLOT a, b TO c, d
100NEXT i
105HCOLOR =8
110DATA 20,55,220,55,30,60,210,60,40,65,200,65
112FOR r=0 TO 2
114READ a, b, c, d
115HPLOT a, b TO c, d
120NEXT r
135HCOLOR =6
140DATA 40,100,200,100,40,100,40,150,40,150,200,150,200,100,200,150,140,110,180,110,50,120,190,120,50,130,190,130,50,140,80,140,150,140,180
145FOR z=0 TO 8
150READ a, b, c, d
155HPLOT a, b TO c, d
160NEXT z
165HCOLOR =7
170DATA 10,20,240,20,10,20,10,155,10,155,240,155,240,20,240,155
175FOR y=0 TO 3
180READ a, b, c, d
185HPLOT a, b TO c, d
190NEXT y
200?:?:? "   Press any key to proceed"; g$:GET g$:TEXT
201REM * INSTRUCTIONS *
210VTAB 10:HTAB 9:INVERSE:FLASH:? " CHECKWRITER ":NORMAL:VTAB 21:? " Press any key!!"; f$:GET f$:NORMAL:TEXT
219VTAB 3:HTAB 9:? "INTRODUCTION"
220VTAB 5:HTAB 3:? "This program enables you to "
230VTAB 6:HTAB 1:? "accurately print out checks"
240VTAB 7:HTAB 1:? "after entering input from your"
250VTAB 8:HTAB 1:? "keyboard. The program is "
260VTAB 9:HTAB 1:? "designed to print accurately"
270VTAB 10:HTAB 1:? "provided top of check is lined"
280VTAB 11:HTAB 1:? "up with the line in the"
290VTAB 12:HTAB 1:? "plastic retainer in ribbon"
300VTAB 13:HTAB 1:? "holder. The only problem is"
310VTAB 14:HTAB 1:? "the check may slide and cause"
320VTAB 15:HTAB 1:? "some problems. I have not had"
330VTAB 16:HTAB 1:? "this happen yet but the "
340VTAB 17:HTAB 1:? "problem exists. Also tabs may"
350VTAB 18:HTAB 1:? "have to be adjusted to "
360VTAB 19:HTAB 1:? "accomodate other types "
370VTAB 20:HTAB 1:? "of checks."
380VTAB 22:HTAB 9:? "<Press any key>"; h$:GET h$:TEXT
400REM *INST *
410VTAB 2:HTAB 10:? "INSTRUCTIONS"
420VTAB 5:HTAB 3:? "When prompts appear enter"
430HTAB 1:? "appropriate data. After you"
440HTAB 1:? "have entered the data the "
450HTAB 1:? "computer will then proceed to"
460HTAB 1:? "print your check. NOTE: The"
470HTAB 1:? "date prompt requires exactly 7"
480HTAB 1:? "spaces to work properly.":?:?:?:? "Press any key>>>"; p$:GET p$
490TEXT:VTAB 10:HTAB 5:INVERSE:? "INSERT CHECK IN PRINTER":NORMAL:VTAB 19:? "Press any key"; ww$:GET ww$:TEXT
500REM *Beginning of prog *
510INPUT "DATE: "; d$
520IF LEN(d$)<>7 THEN ?:? "7 spaces please!!!!":GOTO 500
530INPUT "TO WHOM: "; tw$
540INPUT "AMOUNT: "; a$
550INPUT "WORDING: "; w$
560INPUT "MEMO: "; m$
600REM * Printing process *
610PR #1
620?:?:?:? TAB(35); d$; "  88"
630?:? TAB(9); tw$; TAB(47); a$
640?:? TAB(5); w$
650?:?:?:?:? TAB(7); m$
660PR #0
670TEXT:VTAB 15:? "ANYMORE CHECKS???? (Y/N)"; x$:GET x$
680IF x$="Y" OR x$="y" THEN GOSUB 490
700END
