TEMFILECRT
FILE INFORMATION
FILENAME(S): TEMFILECRT
FILE TYPE(S): PRG
FILE SIZE: 991b
FIRST SEEN: 2025-12-01 01:48:44
APPEARS ON: 1 disk(s)
FILE HASH
6beba9f320b6de288241cf79e3891073312060f242df598931e7736bdfd4340f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CADPAK 128 C | TEMFILECRT | PRG | hedning, Mattias H00r | 29 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 29 1C 0A 00 8F 20 50 52 4F 47 52 41 4D 20 |..).... PROGRAM | 00000010: 54 4F 20 43 52 45 41 54 45 20 41 20 54 45 4D 50 |TO CREATE A TEMP| 00000020: 4C 41 54 45 20 46 49 4C 45 00 55 1C 14 00 8F 20 |LATE FILE.U.... | 00000030: 52 45 4D 45 4D 42 45 52 20 54 48 41 54 20 41 4C |REMEMBER THAT AL| 00000040: 4C 20 43 4F 4F 52 44 20 41 52 45 20 49 4E 20 2E |L COORD ARE IN .| 00000050: 30 30 31 43 4D 00 96 1C 1E 00 8F 20 54 48 49 53 |001CM...... THIS| 00000060: 20 50 52 4F 47 52 41 4D 20 43 52 45 41 54 45 53 | PROGRAM CREATES| 00000070: 20 41 20 53 49 4D 50 4C 45 20 53 50 49 52 41 4C | A SIMPLE SPIRAL| 00000080: 20 57 49 54 48 20 44 41 53 48 20 4C 49 4E 45 20 | WITH DASH LINE | 00000090: 54 4F 20 43 54 52 00 C5 1C 28 00 8F 20 4F 56 45 |TO CTR...(.. OVE| 000000A0: 52 41 4C 4C 20 53 49 5A 45 20 49 53 20 53 45 54 |RALL SIZE IS SET| 000000B0: 20 41 54 20 31 30 43 4D 20 42 59 20 20 38 43 4D | AT 10CM BY 8CM| 000000C0: 20 48 49 47 48 00 E4 1C 32 00 8F 20 4D 41 52 4B | HIGH...2.. MARK| 000000D0: 45 52 20 49 53 20 41 54 20 58 3D 33 43 4D 2C 59 |ER IS AT X=3CM,Y| 000000E0: 3D 32 43 4D 00 F9 1C 3C 00 8F 20 49 4E 50 55 54 |=2CM...<.. INPUT| 000000F0: 20 46 49 4C 45 4E 41 4D 45 00 13 1D 46 00 8F 20 | FILENAME...F.. | 00000100: 41 53 53 55 4D 45 44 20 44 45 56 49 43 45 20 49 |ASSUMED DEVICE I| 00000110: 53 20 38 00 29 1D 50 00 50 49 B2 FF 20 3A 8F 20 |S 8.).P.PI.. :. | 00000120: 44 45 46 49 4E 45 20 50 49 00 50 1D 5A 00 85 22 |DEFINE PI.P.Z.."| 00000130: 54 45 4D 50 4C 41 54 45 20 46 49 4C 45 4E 41 4D |TEMPLATE FILENAM| 00000140: 45 22 3B 5A 24 3A 5A 24 B2 22 54 2E 22 AA 5A 24 |E";Z$:Z$."T.".Z$| 00000150: 00 60 1D 64 00 FE 0D 23 38 2C 28 5A 24 29 2C 57 |.`.d...#8,(Z$),W| 00000160: 00 93 1D 6E 00 8F 20 46 49 52 53 54 20 57 52 49 |...n.. FIRST WRI| 00000170: 54 45 20 4F 55 54 20 54 48 45 20 31 30 2C 31 31 |TE OUT THE 10,11| 00000180: 2C 31 32 20 52 45 43 53 20 46 4F 52 20 53 49 5A |,12 RECS FOR SIZ| 00000190: 49 4E 47 00 B4 1D 78 00 57 44 B2 31 30 30 30 30 |ING...x.WD.10000| 000001A0: 20 3A 20 8F 20 57 49 44 54 48 20 49 4E 20 2E 30 | : . WIDTH IN .0| 000001B0: 30 31 43 4D 00 D5 1D 82 00 48 54 B2 38 30 30 30 |01CM.....HT.8000| 000001C0: 20 3A 20 8F 20 48 45 49 47 48 54 20 49 4E 20 2E | : . HEIGHT IN .| 000001D0: 30 30 31 43 4D 00 EE 1D 8C 00 4D 58 B2 33 30 30 |001CM.....MX.300| 000001E0: 30 20 3A 20 8F 20 58 20 4D 41 52 4B 45 52 00 07 |0 : . X MARKER..| 000001F0: 1E 96 00 4D 59 B2 32 30 30 30 20 3A 20 8F 20 59 |...MY.2000 : . Y| 00000200: 20 4D 41 52 4B 45 52 00 30 1E A0 00 43 58 B2 57 | MARKER.0...CX.W| 00000210: 44 AD 32 3A 43 59 B2 48 54 AD 32 20 3A 8F 20 44 |D.2:CY.HT.2 :. D| 00000220: 45 46 49 4E 45 20 43 45 4E 54 45 52 20 58 2C 59 |EFINE CENTER X,Y| 00000230: 00 4E 1E AA 00 98 38 2C 31 30 3A 98 38 2C 30 3A |.N....8,10:.8,0:| 00000240: 98 38 2C 30 20 3A 8F 20 31 30 20 52 45 43 00 6E |.8,0 :. 10 REC.n| 00000250: 1E B4 00 98 38 2C 31 31 3A 98 38 2C 57 44 3A 98 |....8,11:.8,WD:.| 00000260: 38 2C 48 54 20 3A 8F 20 31 31 20 52 45 43 00 8E |8,HT :. 11 REC..| 00000270: 1E BE 00 98 38 2C 31 32 3A 98 38 2C 4D 58 3A 98 |....8,12:.8,MX:.| 00000280: 38 2C 4D 59 20 3A 8F 20 31 32 20 52 45 43 00 B3 |8,MY :. 12 REC..| 00000290: 1E C8 00 8F 20 4E 4F 57 20 44 4F 20 53 50 49 52 |.... NOW DO SPIR| 000002A0: 41 4C 20 57 49 54 48 20 53 4F 4C 49 44 20 4C 49 |AL WITH SOLID LI| 000002B0: 4E 45 53 00 CB 1E D2 00 8F 20 46 49 52 53 54 20 |NES...... FIRST | 000002C0: 4D 4F 56 45 20 54 4F 20 43 54 52 00 E1 1E DC 00 |MOVE TO CTR.....| 000002D0: 98 38 2C 32 20 3A 98 38 2C 43 58 3A 98 38 2C 43 |.8,2 :.8,CX:.8,C| 000002E0: 59 00 08 1F E6 00 81 4A B2 30 A4 31 30 AC 50 49 |Y......J.0.10.PI| 000002F0: 20 A9 20 2E 31 20 3A 8F 20 53 54 45 50 20 2E 31 | . .1 :. STEP .1| 00000300: 20 52 41 44 49 41 4E 53 00 32 1F F0 00 58 B2 B5 | RADIANS.2...X..| 00000310: 28 43 58 AA 4A AC 31 30 30 AC BF 28 4A 29 29 3A |(CX.J.100..(J)):| 00000320: 59 B2 B5 28 43 59 AA 4A AC 31 30 30 AC BE 28 4A |Y..(CY.J.100..(J| 00000330: 29 29 00 56 1F FA 00 98 38 2C 31 3A 20 98 38 2C |)).V....8,1: .8,| 00000340: 58 3A 98 38 2C 59 20 3A 8F 20 4D 4F 56 45 20 43 |X:.8,Y :. MOVE C| 00000350: 4F 4D 4D 41 4E 44 00 72 1F 04 01 99 4A 2C 58 2C |OMMAND.r....J,X,| 00000360: 59 3A 8F 20 4C 45 54 20 55 53 20 53 45 45 20 54 |Y:. LET US SEE T| 00000370: 4F 4F 00 79 1F 0E 01 82 4A 00 9C 1F 18 01 8F 20 |OO.y....J...... | 00000380: 4E 4F 57 20 44 4F 20 44 41 53 48 20 4C 49 4E 45 |NOW DO DASH LINE| 00000390: 20 42 41 43 4B 20 54 4F 20 43 54 52 00 B1 1F 22 | BACK TO CTR..."| 000003A0: 01 98 38 2C 30 3A 98 38 2C 43 58 3A 98 38 2C 43 |..8,0:.8,CX:.8,C| 000003B0: 59 00 D6 1F 2C 01 98 38 2C 39 39 39 3A FE 0F 23 |Y...,..8,999:..#| 000003C0: 38 20 3A 8F 20 54 52 41 49 4C 45 52 20 41 4E 44 |8 :. TRAILER AND| 000003D0: 20 43 4C 4F 53 45 00 DC 1F 36 01 90 00 00 00 | CLOSE...6..... |
..).... PROGRAM TO CREATE A TEMPLATE FIL E.U.... REMEMBER THAT ALL COORD ARE IN . 001CM...... THIS PROGRAM CREATES A SIMPL E SPIRAL WITH DASH LINE TO CTR.E.(.. OVE RALL SIZE IS SET AT 10CM BY 8CM HIGH... 2.. MARKER IS AT X=3CM,Y=2CM...<.. INPUT FILENAME...F.. ASSUMED DEVICE IS 8.).P. PI.. :. DEFINE PI.P.Z.."TEMPLATE FILENAM E";Z$:Z$."T.".Z$.`.D...#8,(Z$),W...N.. F IRST WRITE OUT THE 10,11,12 RECS FOR SIZ ING...X.WD.10000 : . WIDTH IN .001CM.U.. .HT.8000 : . HEIGHT IN .001CM.....MX.300 0 : . X MARKER.....MY.2000 : . Y MARKER. 0. .CX.WD.2:CY.HT.2 :. DEFINE CENTER X,Y .N....8,10:.8,0:.8,0 :. 10 REC.N....8,11 :.8,WD:.8,HT :. 11 REC......8,12:.8,MX:. 8,MY :. 12 REC...H.. NOW DO SPIRAL WITH SOLID LINES.K.R.. FIRST MOVE TO CTR..... .8,2 :.8,CX:.8,CY......J.0.10.PI . .1 :. STEP .1 RADIANS.2...X..(CX.J.100..(J)): Y..(CY.J.100..(J)).V....8,1: .8,X:.8,Y : . MOVE COMMAND.R....J,X,Y:. LET US SEE T OO.Y....J...... NOW DO DASH LINE BACK TO CTR..."..8,0:.8,CX:.8,CY.V.,..8,999:..# 8 :. TRAILER AND CLOSE...6.....
> CLICK IMAGE PREVIEW FOR FULL MODAL