Home » Archimedes archive » Micro User » MU 1992-02.adf » Listings » 32/MakeTicks
32/MakeTicks
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1992-02.adf » Listings |
| Filename: | 32/MakeTicks |
| Read OK: | ✔ |
| File size: | 0178 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <basicsave$dir>.MakeTicks
20REM by Steve Turnbull
30REM (c) The Micro User
40Z%=OPENOUT"ticketNums"
50INPUT"Number of tickets to print",N%
60INPUT"Number of tickets per sheet",T%
70INPUT"Number to start at",C%
80WHILE N%>0
90 FOR J%=1 TO T%
100 BPUT#Z%,FNn(C%)
110 C%+=1
120 N%-=1
130 NEXT
140 BPUT#Z%,""
150 ENDWHILE
160CLOSE#Z%
170*SetType ticketNums Text
180END
190DEFFNn(N%)="91"+RIGHT$("000"+STR$N%,4)
!� > <basicsave$dir>.MakeTicks
� by Steve Turnbull
� (c) The Micro User
(Z%=�"ticketNums"
2$�"Number of tickets to print",N%
<%�"Number of tickets per sheet",T%
F �"Number to start at",C%
P ȕ N%>0
Z � J%=1 � T%
d �#Z%,�n(C%)
n
C%+=1
x
N%-=1
� �
�
�#Z%,""
� �
��#Z%
� *SetType ticketNums Text
��
� ݤn(N%)="91"+�"000"+�N%,4)
� 00000000 0d 00 0a 21 f4 20 3e 20 3c 62 61 73 69 63 73 61 |...!. > <basicsa| 00000010 76 65 24 64 69 72 3e 2e 4d 61 6b 65 54 69 63 6b |ve$dir>.MakeTick| 00000020 73 0d 00 14 17 f4 20 62 79 20 53 74 65 76 65 20 |s..... by Steve | 00000030 54 75 72 6e 62 75 6c 6c 0d 00 1e 18 f4 20 28 63 |Turnbull..... (c| 00000040 29 20 54 68 65 20 4d 69 63 72 6f 20 55 73 65 72 |) The Micro User| 00000050 0d 00 28 14 5a 25 3d ae 22 74 69 63 6b 65 74 4e |..(.Z%=."ticketN| 00000060 75 6d 73 22 0d 00 32 24 e8 22 4e 75 6d 62 65 72 |ums"..2$."Number| 00000070 20 6f 66 20 74 69 63 6b 65 74 73 20 74 6f 20 70 | of tickets to p| 00000080 72 69 6e 74 22 2c 4e 25 0d 00 3c 25 e8 22 4e 75 |rint",N%..<%."Nu| 00000090 6d 62 65 72 20 6f 66 20 74 69 63 6b 65 74 73 20 |mber of tickets | 000000a0 70 65 72 20 73 68 65 65 74 22 2c 54 25 0d 00 46 |per sheet",T%..F| 000000b0 1c e8 22 4e 75 6d 62 65 72 20 74 6f 20 73 74 61 |.."Number to sta| 000000c0 72 74 20 61 74 22 2c 43 25 0d 00 50 0b c8 95 20 |rt at",C%..P... | 000000d0 4e 25 3e 30 0d 00 5a 11 20 20 e3 20 4a 25 3d 31 |N%>0..Z. . J%=1| 000000e0 20 b8 20 54 25 0d 00 64 13 20 20 20 20 d5 23 5a | . T%..d. .#Z| 000000f0 25 2c a4 6e 28 43 25 29 0d 00 6e 0d 20 20 20 20 |%,.n(C%)..n. | 00000100 43 25 2b 3d 31 0d 00 78 0d 20 20 20 20 4e 25 2d |C%+=1..x. N%-| 00000110 3d 31 0d 00 82 09 20 20 20 20 ed 0d 00 8c 0d 20 |=1.... ..... | 00000120 20 d5 23 5a 25 2c 22 22 0d 00 96 07 20 20 ce 0d | .#Z%,"".... ..| 00000130 00 a0 08 d9 23 5a 25 0d 00 aa 1c 2a 53 65 74 54 |....#Z%....*SetT| 00000140 79 70 65 20 74 69 63 6b 65 74 4e 75 6d 73 20 54 |ype ticketNums T| 00000150 65 78 74 0d 00 b4 05 e0 0d 00 be 1e dd a4 6e 28 |ext...........n(| 00000160 4e 25 29 3d 22 39 31 22 2b c2 22 30 30 30 22 2b |N%)="91"+."000"+| 00000170 c3 4e 25 2c 34 29 0d ff |.N%,4)..| 00000178
.