ARTIKEL REGISTER
FILE INFORMATION
FILENAME(S): ARTIKEL REGISTER
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-01 00:58:19
APPEARS ON: 1 disk(s)
FILE HASH
b03d73c9ca89e7466bfbe12a675ef0502487ff06bf77714588b11aae7ebddb80
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 72 A NYTTO | ARTIKEL REGISTER | PRG | hedning, Beast | 30 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: FD 7A 62 79 67 67 20 65 74 74 20 72 65 67 69 73 |.zbygg ett regis| 00000010: 74 65 72 0D 31 30 20 66 6F 72 20 69 3D 31 20 74 |ter.10 for i=1 t| 00000020: 6F 20 32 30 20 20 20 20 65 2E 78 20 20 20 31 20 |o 20 e.x 1 | 00000030: 2D 20 31 30 30 0D 32 30 20 61 24 28 31 29 3D 31 |- 100.20 a$(1)=1| 00000040: 60 20 73 6A 61 72 6E 61 20 32 0D 33 30 20 70 72 |` sjarna 2.30 pr| 00000050: 69 6E 74 20 69 2C 61 28 31 29 0D 33 35 20 6E 65 |int i,a(1).35 ne| 00000060: 78 74 20 69 0D 34 30 20 64 61 74 61 20 20 65 2E |xt i.40 data e.| 00000070: 78 20 6B 41 4C 4C 45 2C 50 41 4C 4C 45 2C 41 4E |x kALLE,PALLE,AN| 00000080: 4E 41 2C 45 52 49 4B 2C 42 52 49 54 54 41 0D 35 |NA,ERIK,BRITTA.5| 00000090: 35 20 69 6E 70 75 74 22 73 6B 72 69 76 20 73 6F |5 input"skriv so| 000000A0: 6B 74 20 6E 61 6D 6E 22 3B 66 24 0D 36 30 20 69 |kt namn";f$.60 i| 000000B0: 66 20 61 24 3D 66 24 20 74 68 65 6E 20 31 33 30 |f a$=f$ then 130| 000000C0: 0D 37 30 20 69 66 20 62 24 3D 66 24 20 74 68 65 |.70 if b$=f$ the| 000000D0: 6E 20 31 33 30 0D 38 30 20 69 66 20 63 24 3D 66 |n 130.80 if c$=f| 000000E0: 24 20 74 68 65 6E 20 31 33 30 0D 6F 2E 73 2E 76 |$ then 130.o.s.v| 000000F0: 0D 6D 45 4E 20 4F 4D 20 4D 41 4E 20 48 41 52 20 |.mEN OM MAN HAR | 00000100: 65 2E 78 20 31 30 30 20 6E 61 6D 6E 20 4B 41 4E |e.x 100 namn KAN| 00000110: 20 4D 41 4E 20 53 4B 52 49 56 41 0D 61 24 28 31 | MAN SKRIVA.a$(1| 00000120: 29 0D 61 24 28 32 29 0D 6F 2E 73 2E 76 0D 31 31 |).a$(2).o.s.v.11| 00000130: 30 20 70 72 69 6E 74 22 72 65 67 69 73 74 65 72 |0 print"register| 00000140: 20 69 6E 65 68 61 6C 6C 65 72 20 69 6E 74 65 20 | inehaller inte | 00000150: 64 65 74 20 6E 61 6D 6E 22 3B 66 24 0D 31 32 30 |det namn";f$.120| 00000160: 20 67 6F 74 6F 0D 31 33 30 20 70 72 69 6E 74 22 | goto.130 print"| 00000170: 72 65 67 69 73 74 72 65 74 20 69 6E 65 68 61 6C |registret inehal| 00000180: 6C 65 72 20 64 65 74 20 6E 61 6D 6E 22 3B 66 24 |ler det namn";f$| 00000190: 0D 31 35 30 20 65 6E 64 0D 2D 2D 2D 2D 2D 2D 2D |.150 end.-------| 000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 62 79 67 67 61 |----------.bygga| 000001D0: 20 63 6F 64 65 72 20 74 69 6C 6C 20 70 72 67 0D | coder till prg.| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 0D 31 30 20 69 6E 70 75 74 20 22 73 6B 72 69 |-.10 input "skri| 00000200: 76 20 66 6F 72 6E 61 6D 6E 22 3B 61 24 0D 32 30 |v fornamn";a$.20| 00000210: 20 69 6E 70 75 74 20 22 61 63 63 65 73 20 63 6F | input "acces co| 00000220: 64 65 22 3B 62 24 0D 33 30 20 69 66 20 61 24 3D |de";b$.30 if a$=| 00000230: 22 70 6F 75 6C 20 22 20 61 6E 64 20 62 24 3D 22 |"poul " and b$="| 00000240: 39 34 35 31 22 20 74 68 65 6E 20 36 30 0D 34 30 |9451" then 60.40| 00000250: 20 70 72 69 6E 74 22 6E 6F 20 61 63 63 65 73 22 | print"no acces"| 00000260: 0D 35 30 20 67 6F 74 6F 20 36 30 0D 36 30 20 70 |.50 goto 60.60 p| 00000270: 72 69 6E 74 22 20 61 63 63 65 73 22 20 22 72 69 |rint" acces" "ri| 00000280: 67 68 74 20 63 6F 64 65 22 0D 37 30 20 65 6E 64 |ght code".70 end| 00000290: 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002C0: 2D 2D 61 72 74 69 6B 65 6C 20 72 65 67 0D 2D 2D |--artikel reg.--| 000002D0: 2D 2D 2D 2D 2D 2D 2D 0D 31 30 20 70 72 69 6E 74 |-------.10 print| 000002E0: 22 73 6B 72 69 76 20 6E 61 6D 6E 20 70 61 20 73 |"skriv namn pa s| 000002F0: 70 65 6C 3A 22 0D 31 35 20 70 72 69 6E 74 3A 70 |pel:".15 print:p| 00000300: 72 69 6E 74 3A 70 72 69 6E 74 0D 32 30 20 69 6E |rint:print.20 in| 00000310: 70 75 74 20 61 6C 72 24 3D 61 24 20 74 68 65 6E |put alr$=a$ then| 00000320: 20 39 30 0D 33 30 20 66 6F 72 20 69 3D 31 20 74 | 90.30 for i=1 t| 00000330: 6F 20 31 30 30 0D 34 30 20 72 65 61 64 20 70 24 |o 100.40 read p$| 00000340: 2C 66 24 0D 34 35 20 72 65 6D 20 70 24 3D 73 70 |,f$.45 rem p$=sp| 00000350: 65 6C 20 6E 61 6D 6E 20 66 24 3D 64 69 73 6B 20 |el namn f$=disk | 00000360: 6E 72 0D 35 30 20 69 66 20 61 6C 72 24 3D 70 24 |nr.50 if alr$=p$| 00000370: 20 74 68 65 6E 20 39 30 0D 36 30 20 6E 65 78 74 | then 90.60 next| 00000380: 20 69 0D 37 30 20 70 72 69 6E 74 20 22 73 70 65 | i.70 print "spe| 00000390: 6C 65 74 20 65 6C 6C 65 72 20 70 72 6F 67 72 61 |let eller progra| 000003A0: 6D 6D 65 74 20 66 69 6E 6E 73 20 69 6E 74 65 20 |mmet finns inte | 000003B0: 69 20 72 65 67 69 73 74 72 65 74 22 0D 37 32 20 |i registret".72 | 000003C0: 70 72 69 6E 74 3A 70 72 69 6E 74 0D 38 30 20 67 |print:print.80 g| 000003D0: 6F 74 6F 20 31 30 0D 39 30 20 75 74 24 3D 70 24 |oto 10.90 ut$=p$| 000003E0: 20 70 6C 75 73 22 20 20 22 70 6C 75 73 20 66 24 | plus" "plus f$| 000003F0: 20 70 6C 75 73 20 22 20 20 22 0D 39 31 20 70 72 | plus " ".91 pr| 00000400: 69 6E 74 20 3A 20 70 72 69 6E 74 20 3A 20 70 72 |int : print : pr| 00000410: 69 6E 74 20 20 0D 39 35 20 70 72 69 6E 74 20 75 |int .95 print u| 00000420: 74 24 0D 31 30 30 20 70 72 69 6E 74 20 66 24 0D |t$.100 print f$.| 00000430: 31 31 30 20 70 72 69 6E 74 20 70 24 0D 31 32 30 |110 print p$.120| 00000440: 20 64 61 74 61 20 73 70 65 6C 20 6E 61 6D 6E 0D | data spel namn.| 00000450: 31 33 30 20 64 61 74 61 20 64 69 73 6B 20 6E 61 |130 data disk na| 00000460: 6D 6E 20 65 6C 6C 65 72 20 6E 72 0D 31 34 30 20 |mn eller nr.140 | 00000470: 64 61 74 61 20 73 70 65 6C 20 6E 61 6D 6E 20 0D |data spel namn .| 00000480: 31 35 30 20 64 61 74 61 20 64 69 73 6B 20 6E 72 |150 data disk nr| 00000490: 0D 6F 2E 73 2E 76 0D 31 39 30 20 65 6E 64 0D 2D |.o.s.v.190 end.-| 000004A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004D0: 0D 3A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.:--------------| 000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000500: 2D 2D 2D 0D |---. |
.ZBYGG ETT REGISTER.10 FOR I=1 TO 20 E.X 1 - 100.20 A$(1)=1` SJARNA 2.30 PR INT I,A(1).35 NEXT I.40 DATA E.X KALLE, PALLE,ANNA,ERIK,BRITTA.55 INPUT"SKRIV SO KT NAMN";F$.60 IF A$=F$ THEN 130.70 IF B $=F$ THEN 130.80 IF C$=F$ THEN 130.O.S.V .MEN OM MAN HAR E.X 100 NAMN KAN MAN SKR IVA.A$(1).A$(2).O.S.V.110 PRINT"REGISTER INEHALLER INTE DET NAMN";F$.120 GOTO.13 0 PRINT"REGISTRET INEHALLER DET NAMN";F$ .150 END.------------------------------- ------------------.BYGGA CODER TILL PRG. -----------------.10 INPUT "SKRIV FORNAM N";A$.20 INPUT "ACCES CODE";B$.30 IF A$= "POUL " AND B$="9451" THEN 60.40 PRINT"N O ACCES".50 GOTO 60.60 PRINT" ACCES" "RI GHT CODE".70 END.----------------------- --------------------------ARTIKEL REG.-- -------.10 PRINT"SKRIV NAMN PA SPEL:".15 PRINT:PRINT:PRINT.20 INPUT ALR$=A$ THEN 90.30 FOR I=1 TO 100.40 READ P$,F$.45 R EM P$=SPEL NAMN F$=DISK NR.50 IF ALR$=P$ THEN 90.60 NEXT I.70 PRINT "SPELET ELLE R PROGRAMMET FINNS INTE I REGISTRET".72 PRINT:PRINT.80 GOTO 10.90 UT$=P$ PLUS" "PLUS F$ PLUS " ".91 PRINT : PRINT : PR INT .95 PRINT UT$.100 PRINT F$.110 PRIN T P$.120 DATA SPEL NAMN.130 DATA DISK NA MN ELLER NR.140 DATA SPEL NAMN .150 DATA DISK NR.O.S.V.190 END.----------------- --------------------------------.:------ ---------------------------------------- ---.
> CLICK IMAGE PREVIEW FOR FULL MODAL