/ 8bitfiles.net/archives
/ archives.tar / archives / genie-commodore-file-library / C64-128BBS / AABBS68.ARC / _BBSDOWNV6.7 / c64.bas ![]() |
Unknown | 2019-04-13 | 1.0 KB |
Confidence | Program | Detection | Match Type | Support |
---|---|---|---|---|
66% | dexvert | GW-BASIC (document/gwBasic) | ext | Supported |
66% | dexvert | GFA-BASIC Atari (other/gfaBASICAtari) | ext | Supported |
1% | dexvert | Amiga BASIC Protected File (other/amigaBASICProtectedFile) | ext | Unsupported |
1% | dexvert | BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) | ext | Unsupported |
1% | dexvert | Visual Basic Tokenized Source (other/visualBasicTokenizedSource) | ext | Unsupported |
1% | dexvert | ZBASIC (other/zbasic) | ext | Unsupported |
100% | file | data | default | |
100% | gt2 | Kopftext: '10 REM' | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 52 45 4d 22 14 | 14 14 14 14 14 14 8d 93 |10 REM".|........|
|00000010| 08 0e c2 59 20 ce 49 43 | 4b 20 d3 4d 49 54 48 00 |...Y .IC|K .MITH.|
|00000020| 0a 31 31 20 52 45 4d 22 | 14 14 14 14 14 14 14 cf |.11 REM"|........|
|00000030| 46 20 54 48 45 20 c1 4c | 4c 20 c1 4d 45 52 49 43 |F THE .L|L .MERIC|
|00000040| 41 4e 20 c2 c2 d3 20 28 | 39 31 39 29 2d 34 39 37 |AN ... (|919)-497|
|00000050| 2d 30 39 38 39 8d 05 00 | 0a 31 32 20 52 45 4d 22 |-0989...|.12 REM"|
|00000060| 14 14 14 14 14 14 14 00 | 0a 31 30 30 20 4f 50 45 |........|.100 OPE|
|00000070| 4e 35 2c 32 2c 33 2c 43 | 48 52 24 28 36 29 2b 43 |N5,2,3,C|HR$(6)+C|
|00000080| 48 52 24 28 2e 29 3a 47 | 45 54 23 35 2c 41 24 0a |HR$(.):G|ET#5,A$.|
|00000090| 31 31 30 20 42 31 3d 33 | 37 31 33 36 3a 42 32 3d |110 B1=3|7136:B2=|
|000000a0| 33 37 31 33 38 3a 49 46 | 50 45 45 4b 28 34 30 39 |37138:IF|PEEK(409|
|000000b0| 36 30 29 3d 31 34 38 54 | 48 45 4e 42 31 3d 35 36 |60)=148T|HENB1=56|
|000000c0| 35 37 37 3a 42 32 3d 35 | 36 35 37 39 0a 31 32 30 |577:B2=5|6579.120|
|000000d0| 20 49 4e 50 55 54 22 93 | 0e 08 9f d4 49 4d 45 3a | INPUT".|....IME:|
|000000e0| 20 48 48 4d 4d 53 53 20 | 20 30 30 30 30 30 30 9d | HHMMSS | 000000.|
|000000f0| 9d 9d 9d 9d 9d 9d 9d 22 | 3b 54 54 24 3a 54 49 24 |......."|;TT$:TI$|
|00000100| 3d 54 54 24 0a 31 33 30 | 20 50 52 49 4e 54 22 11 |=TT$.130| PRINT".|
|00000110| cd 4f 56 45 20 d4 2f c4 | 20 53 57 49 54 43 48 20 |.OVE ./.| SWITCH |
|00000120| 54 4f 20 c4 22 3a 50 52 | 49 4e 54 22 cd 4f 56 45 |TO .":PR|INT".OVE|
|00000130| 20 c1 2f cf 20 53 57 49 | 54 43 48 20 54 4f 20 c1 | ./. SWI|TCH TO .|
|00000140| 00 0a 31 34 30 20 46 4f | 52 4a 4b 3d 2e 54 4f 32 |..140 FO|RJK=.TO2|
|00000150| 30 30 3a 50 4f 4b 45 42 | 32 2c 33 32 3a 50 4f 4b |00:POKEB|2,32:POK|
|00000160| 45 42 31 2c 2e 3a 4e 45 | 58 54 3a 50 52 49 4e 54 |EB1,.:NE|XT:PRINT|
|00000170| 23 35 2c 22 c1 d4 da 00 | 0a 31 34 35 20 50 52 49 |#5,"....|.145 PRI|
|00000180| 4e 54 22 11 22 3a 49 46 | 28 50 45 45 4b 28 42 31 |NT".":IF|(PEEK(B1|
|00000190| 29 41 4e 44 31 36 29 3d | 2e 54 48 45 4e 47 4f 53 |)AND16)=|.THENGOS|
|000001a0| 55 42 31 34 33 30 3a 50 | 52 49 4e 54 23 35 2c 22 |UB1430:P|RINT#5,"|
|000001b0| 2b 2b 2b 22 3b 3a 47 4f | 53 55 42 31 34 33 30 0a |+++";:GO|SUB1430.|
|000001c0| 31 35 30 20 50 52 49 4e | 54 22 d4 49 4d 45 3a 20 |150 PRIN|T".IME: |
|000001d0| 20 22 54 49 24 22 91 22 | 3a 49 46 28 50 45 45 4b | "TI$"."|:IF(PEEK|
|000001e0| 28 42 31 29 41 4e 44 38 | 29 54 48 45 4e 31 35 30 |(B1)AND8|)THEN150|
|000001f0| 0a 31 36 30 20 46 4f 52 | 4a 4c 3d 2e 54 4f 32 45 |.160 FOR|JL=.TO2E|
|00000200| 33 3a 4e 45 58 54 4a 4c | 0a 31 37 30 20 50 4f 4b |3:NEXTJL|.170 POK|
|00000210| 45 42 31 2c 33 32 3a 46 | 4f 52 49 3d 31 54 4f 33 |EB1,32:F|ORI=1TO3|
|00000220| 45 33 3a 4e 45 58 54 3a | 50 52 49 4e 54 3a 50 52 |E3:NEXT:|PRINT:PR|
|00000230| 49 4e 54 0a 31 37 35 20 | 46 4f 52 4e 53 3d 2e 54 |INT.175 |FORNS=.T|
|00000240| 4f 31 30 30 3a 47 45 54 | 23 35 2c 41 24 3a 50 52 |O100:GET|#5,A$:PR|
|00000250| 49 4e 54 23 35 3a 4e 45 | 58 54 4e 53 0a 31 38 30 |INT#5:NE|XTNS.180|
|00000260| 20 50 52 49 4e 54 23 35 | 2c 22 0a 07 c3 4f 4e 4e | PRINT#5|,"...ONN|
|00000270| 45 43 54 45 44 20 41 54 | 3a 20 20 22 3b 54 49 24 |ECTED AT|: ";TI$|
|00000280| 0a 31 39 30 20 50 52 49 | 4e 54 23 35 2c 22 0a 0a |.190 PRI|NT#5,"..|
|00000290| 0a d7 45 4c 43 4f 4d 45 | 20 54 4f 20 54 48 45 20 |..ELCOME| TO THE |
|000002a0| c1 4c 4c 20 c1 4d 45 52 | 49 43 41 4e 20 c2 c2 d3 |.LL .MER|ICAN ...|
|000002b0| 00 0a 32 30 30 20 50 52 | 49 4e 54 23 35 2c 22 0a |..200 PR|INT#5,".|
|000002c0| c9 27 4d 20 53 4f 52 52 | 59 2c 20 42 55 54 20 54 |.'M SORR|Y, BUT T|
|000002d0| 48 45 20 53 59 53 54 45 | 4d 20 49 53 00 0a 32 31 |HE SYSTE|M IS..21|
|000002e0| 30 20 50 52 49 4e 54 23 | 35 2c 22 0a 54 45 4d 50 |0 PRINT#|5,".TEMP|
|000002f0| 4f 52 41 52 49 4c 59 20 | 44 4f 57 4e 2e 20 20 d4 |ORARILY |DOWN. .|
|00000300| 48 45 20 53 59 53 54 45 | 4d 20 57 49 4c 4c 20 42 |HE SYSTE|M WILL B|
|00000310| 45 00 0a 32 32 30 20 50 | 52 49 4e 54 23 35 2c 22 |E..220 P|RINT#5,"|
|00000320| 42 41 43 4b 20 4f 4e 2d | 4c 49 4e 45 20 49 4e 20 |BACK ON-|LINE IN |
|00000330| 41 50 50 52 4f 58 49 4d | 41 54 45 4c 59 20 32 20 |APPROXIM|ATELY 2 |
|00000340| 48 52 53 2e 00 0a 32 33 | 30 20 50 52 49 4e 54 23 |HRS...23|0 PRINT#|
|00000350| 35 2c 22 0a d0 4c 45 41 | 53 45 20 43 41 4c 4c 20 |5,"..LEA|SE CALL |
|00000360| 42 41 43 4b 20 54 48 45 | 4e 2e 00 0a 32 34 30 20 |BACK THE|N...240 |
|00000370| 50 52 49 4e 54 23 35 2c | 22 0a 0a 0a d4 48 41 4e |PRINT#5,|"....HAN|
|00000380| 4b 20 59 4f 55 20 46 4f | 52 20 43 41 4c 4c 49 4e |K YOU FO|R CALLIN|
|00000390| 47 2e 00 0a 32 35 30 20 | 50 52 49 4e 54 23 35 2c |G...250 |PRINT#5,|
|000003a0| 22 0a 0a 0a c4 49 53 43 | 4f 4e 4e 45 43 54 45 44 |"....ISC|ONNECTED|
|000003b0| 20 41 54 3a 20 20 22 54 | 49 24 43 48 52 24 28 31 | AT: "T|I$CHR$(1|
|000003c0| 33 29 0a 32 36 30 20 49 | 46 50 45 45 4b 28 36 36 |3).260 I|FPEEK(66|
|000003d0| 39 29 3c 3e 50 45 45 4b | 28 36 37 30 29 47 4f 54 |9)<>PEEK|(670)GOT|
|000003e0| 4f 32 36 30 0a 32 37 30 | 20 47 4f 54 4f 31 34 30 |O260.270| GOTO140|
|000003f0| 0a 31 34 33 30 20 54 53 | 3d 54 49 0a 31 34 33 32 |.1430 TS|=TI.1432|
|00000400| 20 49 46 54 49 2d 54 53 | 3c 31 30 30 54 48 45 4e | IFTI-TS|<100THEN|
|00000410| 31 34 33 32 0a 31 34 33 | 34 20 52 45 54 55 52 4e |1432.143|4 RETURN|
|00000420| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+