/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug009.ark / GETPUT.ASC

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 27 20 50 52 4f | 47 52 41 4d 20 4e 41 4d |10 ' PRO|GRAM NAM|
|00000010| 45 20 22 47 45 54 50 55 | 54 22 0d 0a 32 30 20 27 |E "GETPU|T"..20 '|
|00000020| 20 50 52 4f 47 52 41 4d | 4d 45 44 20 42 59 3a 20 | PROGRAM|MED BY: |
|00000030| 20 42 55 44 20 53 48 41 | 4d 42 55 52 47 45 52 20 | BUD SHA|MBURGER |
|00000040| 20 20 20 20 20 4a 41 4e | 20 31 39 37 37 0a 0d 00 |     JAN| 1977...|
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000060| 20 20 20 20 23 32 37 20 | 52 45 44 20 4f 41 4b 20 |    #27 |RED OAK |
|00000070| 44 52 0a 0d 00 20 20 20 | 20 20 20 20 20 20 20 20 |DR...   |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 43 4f 4e 57 41 59 2c |        | CONWAY,|
|00000090| 20 41 52 4b 20 20 37 32 | 30 33 32 20 20 20 20 20 | ARK  72|032     |
|000000a0| 35 30 31 2d 33 32 37 2d | 33 36 34 31 0d 0a 33 30 |501-327-|3641..30|
|000000b0| 20 27 0d 0a 34 30 20 27 | 20 41 20 47 45 4e 45 52 | '..40 '| A GENER|
|000000c0| 41 4c 20 50 55 52 50 4f | 53 45 20 55 54 49 4c 49 |AL PURPO|SE UTILI|
|000000d0| 54 59 20 50 52 4f 47 52 | 41 4d 20 46 4f 52 20 44 |TY PROGR|AM FOR D|
|000000e0| 55 4d 50 49 4e 47 20 41 | 20 52 41 4e 44 4f 4d 20 |UMPING A| RANDOM |
|000000f0| 46 49 4c 45 0d 0a 35 30 | 20 27 20 4f 4e 20 54 48 |FILE..50| ' ON TH|
|00000100| 45 20 54 45 52 4d 49 4e | 41 4c 2c 20 45 58 41 4d |E TERMIN|AL, EXAM|
|00000110| 49 4e 49 4e 47 20 49 54 | 53 20 43 4f 4e 54 45 4e |INING IT|S CONTEN|
|00000120| 54 53 2c 20 41 4e 44 20 | 41 4c 54 45 52 49 4e 47 |TS, AND |ALTERING|
|00000130| 0d 0a 36 30 20 27 20 49 | 54 20 42 59 20 54 59 50 |..60 ' I|T BY TYP|
|00000140| 49 4e 47 20 49 4e 20 54 | 48 45 20 4c 49 4d 49 54 |ING IN T|HE LIMIT|
|00000150| 53 20 4f 46 20 54 48 45 | 20 44 45 53 49 52 45 44 |S OF THE| DESIRED|
|00000160| 20 46 49 45 4c 44 0d 0a | 37 30 20 27 20 41 4e 44 | FIELD..|70 ' AND|
|00000170| 20 54 48 45 4e 20 45 4e | 54 45 52 49 4e 47 20 54 | THEN EN|TERING T|
|00000180| 48 45 20 4e 45 57 20 44 | 41 54 41 2e 20 20 54 48 |HE NEW D|ATA.  TH|
|00000190| 45 20 4e 45 57 20 52 45 | 43 4f 52 44 20 49 53 20 |E NEW RE|CORD IS |
|000001a0| 54 48 45 4e 20 44 55 4d | 50 20 4f 4e 0d 0a 38 30 |THEN DUM|P ON..80|
|000001b0| 20 27 20 54 48 45 20 54 | 45 52 4d 49 4e 41 4c 20 | ' THE T|ERMINAL |
|000001c0| 46 4f 52 20 56 49 53 55 | 41 4c 20 49 4e 53 50 45 |FOR VISU|AL INSPE|
|000001d0| 43 54 49 4f 4e 2e 0d 0a | 39 30 20 27 20 41 4e 44 |CTION...|90 ' AND|
|000001e0| 20 45 4e 54 49 52 45 20 | 44 49 53 4b 20 52 45 43 | ENTIRE |DISK REC|
|000001f0| 4f 52 44 20 43 41 4e 20 | 42 45 20 43 52 45 41 54 |ORD CAN |BE CREAT|
|00000200| 45 44 20 55 53 49 4e 47 | 20 54 48 49 53 20 50 52 |ED USING| THIS PR|
|00000210| 4f 47 52 41 4d 20 4f 52 | 20 41 53 20 0d 0a 31 30 |OGRAM OR| AS ..10|
|00000220| 30 20 27 20 4c 49 54 54 | 4c 45 20 41 53 20 4f 4e |0 ' LITT|LE AS ON|
|00000230| 45 20 43 48 41 52 41 43 | 54 45 52 20 43 41 4e 20 |E CHARAC|TER CAN |
|00000240| 42 45 20 45 4e 54 45 52 | 45 44 20 4f 52 20 43 48 |BE ENTER|ED OR CH|
|00000250| 41 4e 47 45 44 2e 0d 0a | 31 31 30 20 27 20 45 41 |ANGED...|110 ' EA|
|00000260| 43 48 20 50 4f 53 49 54 | 49 4f 4e 20 49 4e 20 54 |CH POSIT|ION IN T|
|00000270| 48 45 20 31 32 38 20 43 | 48 41 52 41 43 54 45 52 |HE 128 C|HARACTER|
|00000280| 20 52 45 43 4f 52 44 20 | 49 53 20 49 44 45 4e 54 | RECORD |IS IDENT|
|00000290| 49 46 49 45 44 20 4a 55 | 53 54 20 0d 0a 31 32 30 |IFIED JU|ST ..120|
|000002a0| 20 27 20 41 42 4f 56 45 | 20 49 54 53 20 50 52 49 | ' ABOVE| ITS PRI|
|000002b0| 4e 54 20 4c 4f 43 41 54 | 49 4f 4e 2e 0d 0a 31 33 |NT LOCAT|ION...13|
|000002c0| 30 20 27 0d 0a 31 34 30 | 20 27 2a 2a 2a 2a 2a 2a |0 '..140| '******|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0a 31 |********|*****..1|
|00000310| 35 30 20 27 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |50 '****|********|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 0d | 0a 31 36 30 20 27 0d 0a |*******.|.160 '..|
|00000360| 31 37 30 20 43 4c 45 41 | 52 20 35 30 30 0d 0a 31 |170 CLEA|R 500..1|
|00000370| 38 30 20 42 4c 4b 24 3d | 22 20 20 20 20 20 20 20 |80 BLK$=|"       |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000390| 20 20 22 0d 0a 31 39 30 | 20 49 4e 50 55 54 20 22 |  "..190| INPUT "|
|000003a0| 45 4e 54 45 52 20 46 49 | 4c 45 20 4e 41 4d 45 22 |ENTER FI|LE NAME"|
|000003b0| 3b 4e 24 0d 0a 32 30 30 | 20 49 4e 50 55 54 20 22 |;N$..200| INPUT "|
|000003c0| 46 49 4c 45 20 4e 55 4d | 42 45 52 22 3b 46 0d 0a |FILE NUM|BER";F..|
|000003d0| 32 31 30 20 49 4e 50 55 | 54 20 22 44 52 49 56 45 |210 INPU|T "DRIVE|
|000003e0| 20 53 45 4c 45 43 54 22 | 3b 44 24 0d 0a 32 32 30 | SELECT"|;D$..220|
|000003f0| 20 4e 24 3d 44 24 2b 22 | 3a 22 2b 4e 24 0d 0a 32 | N$=D$+"|:"+N$..2|
|00000400| 34 30 20 52 24 3d 22 52 | 22 0d 0a 32 35 30 20 4f |40 R$="R|"..250 O|
|00000410| 50 45 4e 20 52 24 2c 46 | 2c 4e 24 0d 0a 32 36 30 |PEN R$,F|,N$..260|
|00000420| 20 46 49 45 4c 44 20 46 | 2c 31 32 38 20 41 53 20 | FIELD F|,128 AS |
|00000430| 41 24 0d 0a 32 37 30 20 | 4c 45 54 20 43 3d 31 0d |A$..270 |LET C=1.|
|00000440| 0a 32 38 30 20 49 4e 50 | 55 54 20 22 45 4e 54 45 |.280 INP|UT "ENTE|
|00000450| 52 20 2d 41 2d 20 54 4f | 20 4c 4f 41 44 20 47 4c |R -A- TO| LOAD GL|
|00000460| 4d 45 4e 55 22 2c 43 43 | 24 0d 0a 32 39 30 20 49 |MENU",CC|$..290 I|
|00000470| 46 20 43 43 24 3d 22 41 | 22 20 54 48 45 4e 20 4c |F CC$="A|" THEN L|
|00000480| 4f 41 44 20 22 47 4c 4d | 45 4e 55 22 2c 52 0d 0a |OAD "GLM|ENU",R..|
|00000490| 33 30 30 20 49 4e 50 55 | 54 20 22 45 4e 54 45 52 |300 INPU|T "ENTER|
|000004a0| 20 41 44 44 52 22 3b 43 | 0d 0a 33 31 30 20 47 45 | ADDR";C|..310 GE|
|000004b0| 54 20 46 2c 43 0d 0a 33 | 32 30 20 41 31 24 3d 22 |T F,C..3|20 A1$="|
|000004c0| 31 2e 2e 2e 35 2e 2e 2e | 2e 30 2e 2e 2e 2e 35 2e |1...5...|.0....5.|
|000004d0| 2e 2e 2e 30 2e 2e 2e 2e | 35 2e 2e 2e 2e 30 2e 2e |...0....|5....0..|
|000004e0| 2e 2e 35 2e 2e 2e 2e 30 | 22 0d 0a 33 33 30 20 41 |..5....0|"..330 A|
|000004f0| 32 24 3d 22 20 20 20 20 | 20 20 20 20 20 31 20 20 |2$="    |     1  |
|00000500| 20 20 31 20 20 20 20 32 | 20 20 20 20 32 20 20 20 |  1    2|    2   |
|00000510| 20 33 20 20 20 20 33 20 | 20 20 20 34 22 0d 0a 33 | 3    3 |   4"..3|
|00000520| 34 30 20 41 33 24 3d 22 | 2e 2e 2e 2e 35 2e 2e 2e |40 A3$="|....5...|
|00000530| 2e 30 2e 2e 2e 2e 35 2e | 2e 2e 2e 30 2e 2e 2e 2e |.0....5.|...0....|
|00000540| 35 2e 2e 2e 2e 30 2e 2e | 2e 2e 35 2e 2e 2e 2e 30 |5....0..|..5....0|
|00000550| 0d 0a 33 35 30 20 41 34 | 24 3d 22 20 20 20 20 34 |..350 A4|$="    4|
|00000560| 20 20 20 20 35 20 20 20 | 20 35 20 20 20 20 36 20 |    5   | 5    6 |
|00000570| 20 20 20 36 20 20 20 20 | 37 20 20 20 20 37 20 20 |   6    |7    7  |
|00000580| 20 20 38 22 0d 0a 33 36 | 30 20 41 35 24 3d 22 2e |  8"..36|0 A5$=".|
|00000590| 2e 2e 2e 35 2e 2e 38 22 | 0d 0a 33 37 30 20 41 36 |...5..8"|..370 A6|
|000005a0| 24 3d 22 20 20 20 20 38 | 20 20 20 20 39 20 20 20 |$="    8|    9   |
|000005b0| 20 39 20 20 20 20 30 20 | 20 20 20 30 20 20 20 20 | 9    0 |   0    |
|000005c0| 31 20 20 20 20 31 20 20 | 20 20 32 22 0d 0a 33 38 |1    1  |  2"..38|
|000005d0| 30 20 41 37 24 3d 22 20 | 20 20 20 32 20 20 32 22 |0 A7$=" |   2  2"|
|000005e0| 0d 0a 33 39 30 20 50 52 | 49 4e 54 20 41 32 24 3b |..390 PR|INT A2$;|
|000005f0| 41 34 24 0d 0a 34 30 30 | 20 50 52 49 4e 54 20 41 |A4$..400| PRINT A|
|00000600| 31 24 3b 41 33 24 0d 0a | 34 31 30 20 50 52 49 4e |1$;A3$..|410 PRIN|
|00000610| 54 20 4d 49 44 24 28 41 | 24 2c 31 2c 38 30 29 0d |T MID$(A|$,1,80).|
|00000620| 0a 34 32 30 20 50 52 49 | 4e 54 20 41 36 24 3b 41 |.420 PRI|NT A6$;A|
|00000630| 37 24 0d 0a 34 33 30 20 | 50 52 49 4e 54 20 41 33 |7$..430 |PRINT A3|
|00000640| 24 3b 41 35 24 0d 0a 34 | 34 30 20 50 52 49 4e 54 |$;A5$..4|40 PRINT|
|00000650| 20 4d 49 44 24 28 41 24 | 2c 38 31 2c 31 32 38 29 | MID$(A$|,81,128)|
|00000660| 0d 0a 34 35 30 20 49 4e | 50 55 54 20 22 45 4e 54 |..450 IN|PUT "ENT|
|00000670| 45 52 20 46 49 45 4c 44 | 20 4c 49 4d 49 54 53 20 |ER FIELD| LIMITS |
|00000680| 41 53 20 58 58 58 2d 58 | 58 58 22 3b 42 31 24 0d |AS XXX-X|XX";B1$.|
|00000690| 0a 34 36 30 20 42 32 24 | 3d 4d 49 44 24 28 42 31 |.460 B2$|=MID$(B1|
|000006a0| 24 2c 31 2c 33 29 3a 42 | 32 3d 56 41 4c 28 42 32 |$,1,3):B|2=VAL(B2|
|000006b0| 24 29 0d 0a 34 37 30 20 | 42 33 24 3d 4d 49 44 24 |$)..470 |B3$=MID$|
|000006c0| 28 42 31 24 2c 35 2c 33 | 29 3a 42 33 3d 56 41 4c |(B1$,5,3|):B3=VAL|
|000006d0| 28 42 33 24 29 0d 0a 34 | 38 30 20 4b 3d 42 33 2d |(B3$)..4|80 K=B3-|
|000006e0| 42 32 2b 31 0d 0a 34 39 | 30 20 49 46 20 4b 3e 31 |B2+1..49|0 IF K>1|
|000006f0| 32 38 20 54 48 45 4e 20 | 50 52 49 4e 54 20 22 46 |28 THEN |PRINT "F|
|00000700| 49 45 4c 44 20 53 49 5a | 45 20 45 52 52 4f 52 22 |IELD SIZ|E ERROR"|
|00000710| 3a 47 4f 54 4f 20 34 35 | 30 0d 0a 35 30 30 20 50 |:GOTO 45|0..500 P|
|00000720| 52 49 4e 54 20 22 45 4e | 54 45 52 20 4e 45 57 20 |RINT "EN|TER NEW |
|00000730| 44 41 54 41 22 0d 0a 35 | 31 30 20 49 4e 50 55 54 |DATA"..5|10 INPUT|
|00000740| 20 42 24 0d 0a 35 32 30 | 20 43 24 3d 41 24 0d 0a | B$..520| C$=A$..|
|00000750| 35 33 30 20 4d 49 44 24 | 28 43 24 2c 42 32 2c 4b |530 MID$|(C$,B2,K|
|00000760| 29 3d 42 24 0d 0a 35 34 | 30 20 4c 53 45 54 20 41 |)=B$..54|0 LSET A|
|00000770| 24 3d 43 24 0d 0a 35 35 | 30 20 50 55 54 20 46 2c |$=C$..55|0 PUT F,|
|00000780| 43 0d 0a 35 36 30 20 50 | 52 49 4e 54 20 41 32 24 |C..560 P|RINT A2$|
|00000790| 3b 41 34 24 0d 0a 35 37 | 30 20 50 52 49 4e 54 20 |;A4$..57|0 PRINT |
|000007a0| 41 31 24 3b 41 33 24 0d | 0a 35 38 30 20 50 52 49 |A1$;A3$.|.580 PRI|
|000007b0| 4e 54 20 4d 49 44 24 28 | 43 24 2c 31 2c 38 30 29 |NT MID$(|C$,1,80)|
|000007c0| 0d 0a 35 39 30 20 50 52 | 49 4e 54 20 41 36 24 3b |..590 PR|INT A6$;|
|000007d0| 41 37 24 0d 0a 36 30 30 | 20 50 52 49 4e 54 20 41 |A7$..600| PRINT A|
|000007e0| 33 24 3b 41 35 24 0d 0a | 36 31 30 20 50 52 49 4e |3$;A5$..|610 PRIN|
|000007f0| 54 20 4d 49 44 24 28 43 | 24 2c 38 31 2c 31 32 38 |T MID$(C|$,81,128|
|00000800| 29 0d 0a 36 32 30 20 47 | 4f 54 4f 20 32 37 30 0d |)..620 G|OTO 270.|
|00000810| 0a 36 33 30 20 45 4e 44 | 0d 0a                   |.630 END|..      |
+--------+-------------------------+-------------------------+--------+--------+