ACCEPT.L
FILE INFORMATION
FILENAME(S): ACCEPT.L
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
ecf6dfe935fb22d1197098a16d2e0afd19e4470fba13e1f993dda331b82203d7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | ACCEPT.L | SEQ | hedning, Mattias H00r | 21 | 2 | DOWNLOAD FILE |
| CCS COMAL | ACCEPT.L | SEQ | hedning, Mattias H00r | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 41 43 43 45 50 54 |9000 PROC ACCEPT| 00000010: 28 50 52 4F 4D 50 54 24 2C 56 41 4C 49 44 24 2C |(PROMPT$,VALID$,| 00000020: 52 45 46 20 52 45 50 4C 59 24 2C 4D 41 58 29 20 |REF REPLY$,MAX) | 00000030: 43 4C 4F 53 45 44 0D 39 30 31 30 20 5A 3A 3D 5A |CLOSED.9010 Z:=Z| 00000040: 4F 4E 45 0D 39 30 32 30 20 5A 4F 4E 45 20 30 0D |ONE.9020 ZONE 0.| 00000050: 39 30 33 30 20 50 52 49 4E 54 20 50 52 4F 4D 50 |9030 PRINT PROMP| 00000060: 54 24 0D 39 30 34 30 20 50 52 49 4E 54 20 22 5B |T$.9040 PRINT "[| 00000070: A4 22 2C 0D 39 30 35 30 20 46 4F 52 20 58 3A 3D |.",.9050 FOR X:=| 00000080: 32 20 54 4F 20 4D 41 58 20 44 4F 20 50 52 49 4E |2 TO MAX DO PRIN| 00000090: 54 20 22 20 22 2C 0D 39 30 36 30 20 50 52 49 4E |T " ",.9060 PRIN| 000000A0: 54 20 22 5D 22 2C 0D 39 30 37 30 20 46 4F 52 20 |T "]",.9070 FOR | 000000B0: 58 3A 3D 31 20 54 4F 20 4D 41 58 2B 31 20 44 4F |X:=1 TO MAX+1 DO| 000000C0: 20 50 52 49 4E 54 20 22 9D 22 2C 0D 39 30 38 30 | PRINT ".",.9080| 000000D0: 20 46 45 54 43 48 28 52 45 50 4C 59 24 2C 56 41 | FETCH(REPLY$,VA| 000000E0: 4C 49 44 24 2C 4D 41 58 29 0D 39 30 39 30 20 50 |LID$,MAX).9090 P| 000000F0: 52 49 4E 54 20 0D 39 31 30 30 20 5A 4F 4E 45 20 |RINT .9100 ZONE | 00000100: 5A 0D 39 31 31 30 20 45 4E 44 50 52 4F 43 20 41 |Z.9110 ENDPROC A| 00000110: 43 43 45 50 54 0D 39 31 32 30 20 2F 2F 0D 39 31 |CCEPT.9120 //.91| 00000120: 33 30 20 50 52 4F 43 20 46 45 54 43 48 28 52 45 |30 PROC FETCH(RE| 00000130: 46 20 41 24 2C 56 24 2C 4D 41 58 29 20 43 4C 4F |F A$,V$,MAX) CLO| 00000140: 53 45 44 0D 39 31 34 30 20 44 49 4D 20 56 41 4C |SED.9140 DIM VAL| 00000150: 49 44 24 20 4F 46 20 38 30 2C 20 42 24 20 4F 46 |ID$ OF 80, B$ OF| 00000160: 20 31 0D 39 31 35 30 20 5A 3A 3D 5A 4F 4E 45 0D | 1.9150 Z:=ZONE.| 00000170: 39 31 36 30 20 5A 4F 4E 45 20 30 0D 39 31 37 30 |9160 ZONE 0.9170| 00000180: 20 41 24 3A 3D 22 22 0D 39 31 38 30 20 43 41 53 | A$:="".9180 CAS| 00000190: 45 20 56 24 20 4F 46 0D 39 31 39 30 20 57 48 45 |E V$ OF.9190 WHE| 000001A0: 4E 20 22 41 22 0D 39 32 30 30 20 56 41 4C 49 44 |N "A".9200 VALID| 000001B0: 24 3A 3D 22 41 42 43 44 45 46 47 48 49 4A 4B 4C |$:="ABCDEFGHIJKL| 000001C0: 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 20 C1 |MNOPQRSTUVWXYZ .| 000001D0: C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD CE CF D0 D1 |................| 000001E0: D2 D3 D4 D5 D6 D7 D8 D9 DA 2C 2E 22 0D 39 32 31 |.........,.".921| 000001F0: 30 20 57 48 45 4E 20 22 44 22 0D 39 32 32 30 20 |0 WHEN "D".9220 | 00000200: 56 41 4C 49 44 24 3A 3D 22 30 31 32 33 34 35 36 |VALID$:="0123456| 00000210: 37 38 39 22 0D 39 32 33 30 20 57 48 45 4E 20 22 |789".9230 WHEN "| 00000220: 42 22 0D 39 32 34 30 20 56 41 4C 49 44 24 3A 3D |B".9240 VALID$:=| 00000230: 22 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F |"ABCDEFGHIJKLMNO| 00000240: 50 51 52 53 54 55 56 57 58 59 5A 20 30 31 32 33 |PQRSTUVWXYZ 0123| 00000250: 34 35 36 37 38 39 C1 C2 C3 C4 C5 C6 C7 C8 C9 CA |456789..........| 00000260: CB CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA |................| 00000270: 2C 2E 22 0D 39 32 35 30 20 4F 54 48 45 52 57 49 |,.".9250 OTHERWI| 00000280: 53 45 20 0D 39 32 36 30 20 56 41 4C 49 44 24 3A |SE .9260 VALID$:| 00000290: 3D 56 24 0D 39 32 37 30 20 45 4E 44 43 41 53 45 |=V$.9270 ENDCASE| 000002A0: 20 0D 39 32 38 30 20 44 4F 4E 45 3A 3D 46 41 4C | .9280 DONE:=FAL| 000002B0: 53 45 3B 20 4E 55 4D 3A 3D 30 0D 39 32 39 30 20 |SE; NUM:=0.9290 | 000002C0: 52 45 50 45 41 54 20 0D 39 33 30 30 20 47 45 54 |REPEAT .9300 GET| 000002D0: 27 56 41 4C 49 44 28 42 24 2C 56 41 4C 49 44 24 |'VALID(B$,VALID$| 000002E0: 2B 43 48 52 24 28 31 33 29 2B 43 48 52 24 28 32 |+CHR$(13)+CHR$(2| 000002F0: 30 29 29 0D 39 33 31 30 20 43 41 53 45 20 42 24 |0)).9310 CASE B$| 00000300: 20 4F 46 0D 39 33 32 30 20 57 48 45 4E 20 43 48 | OF.9320 WHEN CH| 00000310: 52 24 28 31 33 29 0D 39 33 33 30 20 44 4F 4E 45 |R$(13).9330 DONE| 00000320: 3A 3D 54 52 55 45 0D 39 33 34 30 20 57 48 45 4E |:=TRUE.9340 WHEN| 00000330: 20 43 48 52 24 28 32 30 29 0D 39 33 35 30 20 49 | CHR$(20).9350 I| 00000340: 46 20 4E 55 4D 20 54 48 45 4E 0D 39 33 36 30 20 |F NUM THEN.9360 | 00000350: 4E 55 4D 3A 2D 31 0D 39 33 37 30 20 49 46 20 4E |NUM:-1.9370 IF N| 00000360: 55 4D 3D 4D 41 58 2D 31 20 54 48 45 4E 0D 39 33 |UM=MAX-1 THEN.93| 00000370: 38 30 20 50 52 49 4E 54 20 22 9D A4 9D 22 2C 0D |80 PRINT "...",.| 00000380: 39 33 39 30 20 45 4C 53 45 20 0D 39 34 30 30 20 |9390 ELSE .9400 | 00000390: 50 52 49 4E 54 20 22 20 9D 9D A4 9D 22 2C 0D 39 |PRINT " ....",.9| 000003A0: 34 31 30 20 45 4E 44 49 46 20 0D 39 34 32 30 20 |410 ENDIF .9420 | 000003B0: 41 24 3A 3D 41 24 28 31 3A 4E 55 4D 29 0D 39 34 |A$:=A$(1:NUM).94| 000003C0: 33 30 20 45 4E 44 49 46 20 0D 39 34 34 30 20 4F |30 ENDIF .9440 O| 000003D0: 54 48 45 52 57 49 53 45 20 0D 39 34 35 30 20 49 |THERWISE .9450 I| 000003E0: 46 20 4E 55 4D 3C 4D 41 58 20 54 48 45 4E 0D 39 |F NUM<MAX THEN.9| 000003F0: 34 36 30 20 41 24 3A 3D 41 24 2B 42 24 0D 39 34 |460 A$:=A$+B$.94| 00000400: 37 30 20 4E 55 4D 3A 2B 31 0D 39 34 38 30 20 50 |70 NUM:+1.9480 P| 00000410: 52 49 4E 54 20 42 24 3B 22 9D A4 9D 22 2C 0D 39 |RINT B$;"...",.9| 00000420: 34 39 30 20 49 46 20 4E 55 4D 3D 4D 41 58 20 54 |490 IF NUM=MAX T| 00000430: 48 45 4E 20 50 52 49 4E 54 20 22 5D 9D 22 2C 0D |HEN PRINT "].",.| 00000440: 39 35 30 30 20 45 4E 44 49 46 20 0D 39 35 31 30 |9500 ENDIF .9510| 00000450: 20 45 4E 44 43 41 53 45 20 0D 39 35 32 30 20 55 | ENDCASE .9520 U| 00000460: 4E 54 49 4C 20 44 4F 4E 45 0D 39 35 33 30 20 5A |NTIL DONE.9530 Z| 00000470: 4F 4E 45 20 5A 0D 39 35 34 30 20 45 4E 44 50 52 |ONE Z.9540 ENDPR| 00000480: 4F 43 20 46 45 54 43 48 0D 39 35 35 30 20 2F 2F |OC FETCH.9550 //| 00000490: 0D 39 35 36 30 20 50 52 4F 43 20 47 45 54 27 56 |.9560 PROC GET'V| 000004A0: 41 4C 49 44 28 52 45 46 20 43 24 2C 56 41 4C 49 |ALID(REF C$,VALI| 000004B0: 44 24 29 20 43 4C 4F 53 45 44 0D 39 35 37 30 20 |D$) CLOSED.9570 | 000004C0: 52 45 50 45 41 54 20 0D 39 35 38 30 20 43 24 3A |REPEAT .9580 C$:| 000004D0: 3D 4B 45 59 24 0D 39 35 39 30 20 55 4E 54 49 4C |=KEY$.9590 UNTIL| 000004E0: 20 43 24 20 49 4E 20 56 41 4C 49 44 24 0D 39 36 | C$ IN VALID$.96| 000004F0: 30 30 20 45 4E 44 50 52 4F 43 20 47 45 54 27 56 |00 ENDPROC GET'V| 00000500: 41 4C 49 44 0D |ALID. |
9000 PROC ACCEPT(PROMPT$,VALID$,REF REPL Y$,MAX) CLOSED.9010 Z:=ZONE.9020 ZONE 0. 9030 PRINT PROMPT$.9040 PRINT "[.",.9050 FOR X:=2 TO MAX DO PRINT " ",.9060 PRIN T "]",.9070 FOR X:=1 TO MAX+1 DO PRINT " .",.9080 FETCH(REPLY$,VALID$,MAX).9090 P RINT .9100 ZONE Z.9110 ENDPROC ACCEPT.91 20 //.9130 PROC FETCH(REF A$,V$,MAX) CLO SED.9140 DIM VALID$ OF 80, B$ OF 1.9150 Z:=ZONE.9160 ZONE 0.9170 A$:="".9180 CAS E V$ OF.9190 WHEN "A".9200 VALID$:="ABCD EFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQ RSTUVWXYZ,.".9210 WHEN "D".9220 VALID$:= "0123456789".9230 WHEN "B".9240 VALID$:= "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789AB CDEFGHIJKLMNOPQRSTUVWXYZ,.".9250 OTHERWI SE .9260 VALID$:=V$.9270 ENDCASE .9280 D ONE:=FALSE; NUM:=0.9290 REPEAT .9300 GET 'VALID(B$,VALID$+CHR$(13)+CHR$(20)).9310 CASE B$ OF.9320 WHEN CHR$(13).9330 DONE :=TRUE.9340 WHEN CHR$(20).9350 IF NUM TH EN.9360 NUM:-1.9370 IF NUM=MAX-1 THEN.93 80 PRINT "...",.9390 ELSE .9400 PRINT " ....",.9410 ENDIF .9420 A$:=A$(1:NUM).94 30 ENDIF .9440 OTHERWISE .9450 IF NUM<MA X THEN.9460 A$:=A$+B$.9470 NUM:+1.9480 P RINT B$;"...",.9490 IF NUM=MAX THEN PRIN T "].",.9500 ENDIF .9510 ENDCASE .9520 U NTIL DONE.9530 ZONE Z.9540 ENDPROC FETCH .9550 //.9560 PROC GET'VALID(REF C$,VALI D$) CLOSED.9570 REPEAT .9580 C$:=KEY$.95 90 UNTIL C$ IN VALID$.9600 ENDPROC GET'V ALID.
> CLICK IMAGE PREVIEW FOR FULL MODAL