PD MENU MAKER
FILE INFORMATION
FILENAME(S): PD MENU MAKER
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:06:42
APPEARS ON: 1 disk(s)
FILE HASH
6a091ba0ea35692ca989fb711b712919128a5a2cae95b1f5b07d895fb3d114fe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP PROG 2A | PD MENU MAKER | PRG | DuncanTwain | 12 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 03 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 04 00 8F 2A |*********.Q....*|
00000030: 20 20 20 20 20 20 20 50 55 4C 4C 2D 44 4F 57 4E | PULL-DOWN|
00000040: 20 4D 45 4E 55 27 53 20 20 20 20 20 20 20 20 20 | MENU'S |
00000050: 2A 00 79 08 05 00 8F 2A 20 20 20 20 20 55 49 54 |*.y....* UIT|
00000060: 3A 36 34 2D 45 52 20 31 30 2F 38 37 20 50 37 34 |:64-ER 10/87 P74|
00000070: 20 20 20 20 20 20 20 20 2A 00 A1 08 06 00 8F 2A | *......*|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 00 C0 08 09 00 8B 46 4C B2 30 A7 86 4D 28 35 |*......FL.0..M(5|
000000B0: 29 2C 4D 24 28 35 29 2C 42 24 28 35 2C 31 31 29 |),M$(5),B$(5,11)|
000000C0: 00 F0 08 0A 00 8B 20 46 4C B2 30 A7 46 4C B2 31 |...... FL.0.FL.1|
000000D0: 3A 99 22 93 4C 4F 41 44 49 4E 47 20 50 44 31 2D |:.".LOADING PD1-|
000000E0: 34 2E 2E 2E 22 3A 93 22 50 44 31 22 2C 38 2C 31 |4...":."PD1",8,1|
000000F0: 00 0B 09 0B 00 8B 20 46 4C B2 31 A7 46 4C B2 32 |...... FL.1.FL.2|
00000100: 3A 93 22 50 44 32 22 2C 38 2C 31 00 26 09 0C 00 |:."PD2",8,1.&...|
00000110: 8B 20 46 4C B2 32 A7 46 4C B2 33 3A 93 22 50 44 |. FL.2.FL.3:."PD|
00000120: 33 22 2C 38 2C 31 00 41 09 0D 00 8B 20 46 4C B2 |3",8,1.A.... FL.|
00000130: 33 A7 46 4C B2 34 3A 93 22 50 44 34 22 2C 38 2C |3.FL.4:."PD4",8,|
00000140: 31 00 71 09 0E 00 99 22 93 50 55 4C 4C 44 4F 57 |1.q....".PULLDOW|
00000150: 4E 20 4D 45 4E 55 20 4D 41 4B 45 52 20 20 20 20 |N MENU MAKER |
00000160: 20 20 20 20 28 57 29 20 4D 41 52 4F 53 4F 46 54 | (W) MAROSOFT|
00000170: 22 00 8F 09 0F 00 9F 31 2C 38 2C 31 35 3A 98 31 |"......1,8,15:.1|
00000180: 2C 22 52 3A 48 23 48 23 48 23 3D 50 44 30 22 00 |,"R:H#H#H#=PD0".|
00000190: A8 09 10 00 84 31 2C 41 2C 42 24 2C 43 2C 44 3A |.....1,A,B$,C,D:|
000001A0: 8B 41 B3 B1 30 A7 32 30 00 E6 09 11 00 98 31 2C |.A..0.20......1,|
000001B0: 22 52 3A 50 44 30 3D 48 23 48 23 48 23 22 3A 99 |"R:PD0=H#H#H#":.|
000001C0: 22 11 11 20 50 44 30 20 4B 4F 4D 54 20 52 45 45 |".. PD0 KOMT REE|
000001D0: 44 53 20 4F 50 20 44 45 5A 45 20 44 49 53 4B 20 |DS OP DEZE DISK |
000001E0: 56 4F 4F 52 21 22 00 0C 0A 12 00 99 22 20 41 4E |VOOR!"......" AN|
000001F0: 44 45 52 45 20 44 49 53 4B 20 49 4E 4C 45 47 47 |DERE DISK INLEGG|
00000200: 45 4E 2E 20 3C 52 45 54 55 52 4E 3E 00 1B 0A 13 |EN. <RETURN>....|
00000210: 00 85 41 24 3A A0 31 3A 89 31 35 00 29 0A 14 00 |..A$:.1:.15.)...|
00000220: 98 31 2C 22 49 22 3A A0 31 00 69 0A 15 00 99 22 |.1,"I":.1.i...."|
00000230: 11 11 11 55 20 4B 55 4E 54 20 35 20 48 4F 4F 46 |...U KUNT 5 HOOF|
00000240: 44 4D 45 4E 55 27 53 20 41 41 4E 4D 41 4B 45 4E |DMENU'S AANMAKEN|
00000250: 20 56 41 4E 20 45 4C 4B 20 20 20 4D 41 58 20 37 | VAN ELK MAX 7|
00000260: 20 54 45 4B 45 4E 53 2E 22 00 8B 0A 16 00 99 22 | TEKENS."......"|
00000270: 11 57 49 4C 54 20 55 20 44 45 20 4E 41 4D 45 4E |.WILT U DE NAMEN|
00000280: 20 49 4E 54 49 4B 4B 45 4E 3F 22 00 CB 0A 17 00 | INTIKKEN?".....|
00000290: 99 22 11 4B 49 45 53 20 4E 55 20 4C 45 54 54 45 |.".KIES NU LETTE|
000002A0: 52 54 59 50 45 20 28 4B 4C 45 49 4E 20 4F 46 20 |RTYPE (KLEIN OF |
000002B0: 47 52 4F 4F 54 29 20 56 4F 4F 52 55 57 20 50 52 |GROOT) VOORUW PR|
000002C0: 4F 47 52 41 4D 4D 41 2E 11 11 22 00 E9 0A 1E 00 |OGRAMMA...".....|
000002D0: 81 58 B2 31 A4 35 3A 42 24 B2 22 20 22 3A 8B 20 |.X.1.5:B$." ":. |
000002E0: 58 B2 35 A7 42 24 B2 22 22 00 FA 0A 28 00 99 22 |X.5.B$.""...(.."|
000002F0: 4D 45 4E 55 22 58 22 3A 22 3B 00 02 0B 32 00 85 |MENU"X":";...2..|
00000300: 54 24 00 1F 0B 3C 00 8B C3 28 54 24 29 B1 37 AA |T$...<...(T$).7.|
00000310: 28 58 B2 35 29 A7 99 22 91 22 3B 3A 89 34 30 00 |(X.5)..".";:.40.|
00000320: 25 0B 46 00 99 00 3C 0B 50 00 8B C3 28 54 24 29 |%.F...<.P...(T$)|
00000330: B2 37 AA 28 58 B2 35 29 A7 31 30 30 00 4E 0B 5A |.7.(X.5).100.N.Z|
00000340: 00 54 24 B2 54 24 AA 22 20 22 3A 89 38 30 00 70 |.T$.T$." ":.80.p|
00000350: 0B 64 00 4D 24 28 58 29 B2 54 24 3A 54 24 B2 22 |.d.M$(X).T$:T$."|
00000360: 22 3A 99 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 20 22 |":.:."........ "|
00000370: 00 77 0B 6E 00 82 58 00 83 0B 78 00 4D 45 24 B2 |.w.n..X...x.ME$.|
00000380: 22 20 22 00 A3 0B 82 00 81 58 B2 31 A4 35 3A 4D |" "......X.1.5:M|
00000390: 45 24 B2 4D 45 24 AA 4D 24 28 58 29 AA 22 20 22 |E$.ME$.M$(X)." "|
000003A0: 3A 82 58 00 C1 0B 8C 00 99 22 93 22 4D 45 24 3B |:.X......"."ME$;|
000003B0: 3A 81 58 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A 82 |:.X.1.40:."=";:.|
000003C0: 58 00 F5 0B 96 00 99 3A 99 22 11 11 11 5E 20 5A |X......:."...^ Z|
000003D0: 4F 20 5A 49 45 54 20 44 45 20 4B 4F 50 52 45 47 |O ZIET DE KOPREG|
000003E0: 45 4C 20 45 52 55 49 54 2E 20 20 4F 4B 3F 20 28 |EL ERUIT. OK? (|
000003F0: 4A 2F 4E 29 22 00 08 0C A0 00 A1 41 24 3A 8B 41 |J/N)"......A$:.A|
00000400: 24 B2 22 22 A7 31 36 30 00 18 0C AA 00 8B 41 24 |$."".160......A$|
00000410: B3 B1 22 4A 22 A7 31 30 00 49 0C C8 00 99 22 93 |.."J".10.I....".|
00000420: 11 47 45 45 46 20 4E 55 20 48 45 54 20 41 41 4E |.GEEF NU HET AAN|
00000430: 54 41 4C 20 43 4F 4D 4D 41 4E 44 4F 27 53 20 50 |TAL COMMANDO'S P|
00000440: 45 52 20 4D 45 4E 55 3A 22 00 54 0C D2 00 81 58 |ER MENU:".T....X|
00000450: B2 31 A4 35 00 72 0C DC 00 99 22 11 4D 45 4E 55 |.1.5.r....".MENU|
00000460: 22 58 22 3A 20 22 AA 4D 24 28 58 29 3A 85 4D 28 |"X": ".M$(X):.M(|
00000470: 58 29 00 93 0C E6 00 8B 4D 28 58 29 B1 31 30 B0 |X)......M(X).10.|
00000480: 4D 28 58 29 B3 31 A7 99 22 91 91 91 22 3B 3A 89 |M(X).1.."...";:.|
00000490: 32 32 30 00 9A 0C F0 00 82 58 00 B8 0C FA 00 99 |220......X......|
000004A0: 22 93 11 45 4E 20 4E 55 20 44 45 20 43 4F 4D 4D |"..EN NU DE COMM|
000004B0: 41 4E 44 4F 27 53 3A 22 00 DF 0C FF 00 99 22 28 |ANDO'S:"......"(|
000004C0: 4D 41 58 20 31 37 20 54 45 4B 45 4E 53 2C 20 47 |MAX 17 TEKENS, G|
000004D0: 45 45 4E 20 27 2C 27 20 4F 46 20 27 3A 27 29 00 |EEN ',' OF ':').|
000004E0: 0E 0D 04 01 81 58 B2 31 A4 35 3A 99 22 11 56 4F |.....X.1.5:.".VO|
000004F0: 4F 52 20 4D 45 4E 55 22 58 22 3A 20 22 4D 24 28 |OR MENU"X": "M$(|
00000500: 58 29 22 20 28 22 4D 28 58 29 22 29 11 22 00 1C |X)" ("M(X)")."..|
00000510: 0D 0E 01 81 59 B2 31 A4 4D 28 58 29 00 2F 0D 18 |....Y.1.M(X)./..|
00000520: 01 99 59 22 3A 22 3A 85 42 24 28 58 2C 59 29 00 |..Y":":.B$(X,Y).|
00000530: 4D 0D 22 01 8B C3 28 42 24 28 58 2C 59 29 29 B1 |M."...(B$(X,Y)).|
00000540: 31 37 A7 99 22 91 22 3B 3A 89 32 38 30 00 64 0D |17..".";:.280.d.|
00000550: 23 01 8B C3 28 42 24 28 58 2C 59 29 29 B2 31 37 |#...(B$(X,Y)).17|
00000560: A7 32 39 33 00 81 0D 24 01 42 24 28 58 2C 59 29 |.293...$.B$(X,Y)|
00000570: B2 42 24 28 58 2C 59 29 AA 22 20 22 3A 89 32 39 |.B$(X,Y)." ":.29|
00000580: 31 00 9F 0D 25 01 42 24 28 58 2C 59 29 B2 22 3D |1...%.B$(X,Y)."=|
00000590: 20 22 AA 42 24 28 58 2C 59 29 AA 22 20 3D 22 00 | ".B$(X,Y)." =".|
000005A0: C9 0D 2C 01 82 59 3A 42 24 28 58 2C 59 29 B2 22 |..,..Y:B$(X,Y)."|
000005B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000005C0: 3D 3D 3D 3D 3D 22 3A 82 58 00 F1 0D 36 01 99 22 |=====":.X...6.."|
000005D0: 93 11 11 20 20 28 31 29 20 4F 56 45 52 5A 49 43 |... (1) OVERZIC|
000005E0: 48 54 20 4F 50 20 42 45 45 4C 44 53 43 48 45 52 |HT OP BEELDSCHER|
000005F0: 4D 00 13 0E 37 01 99 22 11 20 20 28 32 29 20 4F |M...7..". (2) O|
00000600: 56 45 52 5A 49 43 48 54 20 4F 50 20 50 52 49 4E |VERZICHT OP PRIN|
00000610: 54 45 52 00 39 0E 38 01 99 22 11 20 20 28 33 29 |TER.9.8..". (3)|
00000620: 20 44 41 54 41 20 42 45 52 45 4B 45 4E 45 4E 20 | DATA BEREKENEN |
00000630: 45 4E 20 53 41 56 45 4E 22 00 56 0E 40 01 A1 41 |EN SAVEN".V.@..A|
00000640: 24 3A 41 B2 C5 28 41 24 29 3A 8B 41 B2 30 B0 41 |$:A..(A$):.A.0.A|
00000650: B1 33 A7 33 32 30 00 63 0E 4A 01 8B 41 B2 33 A7 |.3.320.c.J..A.3.|
00000660: 35 30 30 00 6E 0E 54 01 9F 31 2C 32 AA 41 00 7F |500.n.T..1,2.A..|
00000670: 0E 5E 01 98 31 3A 98 31 3A 98 31 2C 4D 45 24 00 |.^..1:.1:.1,ME$.|
00000680: 9C 0E 68 01 81 58 B2 31 A4 35 3A 98 31 3A 98 31 |..h..X.1.5:.1:.1|
00000690: 2C 4D 24 28 58 29 22 3A 22 3A 98 31 00 BB 0E 72 |,M$(X)":":.1...r|
000006A0: 01 81 59 B2 31 A4 4D 28 58 29 3A 98 31 2C 59 22 |..Y.1.M(X):.1,Y"|
000006B0: 20 20 2D 22 42 24 28 58 2C 59 29 00 C4 0E 7C 01 | -"B$(X,Y)...|.|
000006C0: 82 59 2C 58 00 CB 0E 86 01 A0 31 00 DB 0E 8B 01 |.Y,X......1.....|
000006D0: 81 58 B2 31 A4 33 30 30 30 3A 82 00 E4 0E 90 01 |.X.1.3000:......|
000006E0: 89 33 31 30 00 1C 0F F4 01 99 22 93 11 11 11 11 |.310......".....|
000006F0: 45 56 45 4E 20 47 45 44 55 4C 44 2C 20 49 4B 20 |EVEN GEDULD, IK |
00000700: 52 45 4B 45 4E 2E 2E 2E 11 13 20 5F 20 48 49 45 |REKEN..... _ HIE|
00000710: 52 20 43 4F 44 45 2D 54 45 53 54 21 00 34 0F FE |R CODE-TEST!.4..|
00000720: 01 8F 20 48 45 41 44 45 52 20 28 4B 4F 50 52 45 |.. HEADER (KOPRE|
00000730: 47 45 4C 29 00 4E 0F 08 02 4C B2 34 39 34 30 38 |GEL).N...L.49408|
00000740: 3A 54 24 B2 4D 45 24 3A 8D 31 30 30 30 30 00 59 |:T$.ME$:.10000.Y|
00000750: 0F 12 02 81 58 B2 31 A4 35 00 6D 0F 1C 02 97 35 |....X.1.5.m....5|
00000760: 30 39 32 37 AA 58 2C 4D 28 58 29 AB 31 00 74 0F |0927.X,M(X).1.t.|
00000770: 26 02 82 58 00 80 0F 30 02 4C B2 35 31 37 31 32 |&..X...0.L.51712|
00000780: 00 93 0F 3A 02 81 58 B2 31 A4 35 3A 4C B2 4C AA |...:..X.1.5:L.L.|
00000790: 32 35 36 00 C1 0F 44 02 54 24 B2 22 22 3A 81 59 |256...D.T$."":.Y|
000007A0: B2 31 A4 4D 28 58 29 AA 31 3A 54 24 B2 54 24 AA |.1.M(X).1:T$.T$.|
000007B0: 42 24 28 58 2C 59 29 3A 82 59 3A 8D 31 30 30 30 |B$(X,Y):.Y:.1000|
000007C0: 30 00 C8 0F 4E 02 82 58 00 EE 0F 58 02 99 22 13 |0...N..X...X..".|
000007D0: 20 20 20 20 20 20 20 20 5F 20 43 4F 55 4E 54 44 | _ COUNTD|
000007E0: 4F 57 4E 20 20 20 20 20 20 20 20 20 20 22 00 14 |OWN "..|
000007F0: 10 5C 02 99 22 44 49 53 4B 45 54 54 45 20 49 4E |.\.."DISKETTE IN|
00000800: 20 44 52 49 56 45 21 20 4F 4B 3F 20 52 45 54 55 | DRIVE! OK? RETU|
00000810: 52 4E 21 22 00 1C 10 5D 02 85 41 24 00 43 10 62 |RN!"...]..A$.C.b|
00000820: 02 99 22 13 11 11 11 11 11 11 49 4B 20 42 45 4E |..".......IK BEN|
00000830: 20 4E 55 20 41 41 4E 20 48 45 54 20 53 41 56 45 | NU AAN HET SAVE|
00000840: 4E 21 22 00 58 10 6C 02 9F 31 2C 38 2C 32 2C 22 |N!".X.l..1,8,2,"|
00000850: 50 44 30 2C 50 2C 57 22 00 6C 10 76 02 98 31 2C |PD0,P,W".l.v..1,|
00000860: C7 28 30 29 3B C7 28 31 39 32 29 3B 00 91 10 80 |.(0);.(192);....|
00000870: 02 81 58 B2 34 39 31 35 32 A4 35 33 32 34 37 3A |..X.49152.53247:|
00000880: 99 22 13 22 35 33 32 34 37 AB 58 22 20 20 20 20 |."."53247.X" |
00000890: 22 00 A4 10 8A 02 98 31 2C C7 28 C2 28 58 29 29 |"......1,.(.(X))|
000008A0: 3B 3A 82 58 00 AB 10 94 02 A0 31 00 F0 10 BC 02 |;:.X......1.....|
000008B0: 99 22 93 11 11 11 43 4F 44 45 54 41 42 45 4C 20 |."....CODETABEL |
000008C0: 45 4E 20 4B 4F 52 54 45 20 47 45 42 52 55 49 4B |EN KORTE GEBRUIK|
000008D0: 53 2D 41 41 4E 57 49 4A 5A 49 4E 47 20 20 55 49 |S-AANWIJZING UI|
000008E0: 54 50 52 49 4E 54 45 4E 3F 20 28 4A 2F 4E 29 22 |TPRINTEN? (J/N)"|
000008F0: 00 03 11 C6 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000900: 37 31 30 00 15 11 D0 02 8B 41 24 B3 B1 22 4A 22 |710......A$.."J"|
00000910: A7 39 39 39 39 00 1E 11 DA 02 9F 31 2C 34 00 69 |.9999......1,4.i|
00000920: 11 E4 02 98 31 2C 22 43 4F 44 45 54 41 42 45 4C |....1,"CODETABEL|
00000930: 20 56 4F 4F 52 20 50 55 4C 4C 44 4F 57 4E 2D 4D | VOOR PULLDOWN-M|
00000940: 45 4E 55 27 53 20 20 20 20 20 20 20 20 20 20 20 |ENU'S |
00000950: 20 20 20 20 20 20 20 20 20 28 57 29 20 4D 41 52 | (W) MAR|
00000960: 4F 53 4F 46 54 20 27 38 36 00 86 11 EE 02 98 31 |OSOFT '86......1|
00000970: 3A 98 31 2C 22 4B 4F 50 52 45 47 45 4C 3A 22 3A |:.1,"KOPREGEL:":|
00000980: 98 31 2C 4D 45 24 00 A0 11 F8 02 81 58 B2 31 A4 |.1,ME$......X.1.|
00000990: 35 3A 98 31 3A 98 31 2C 4D 24 28 58 29 3A 98 31 |5:.1:.1,M$(X):.1|
000009A0: 00 CF 11 02 03 81 59 B2 31 A4 4D 28 58 29 3A 98 |......Y.1.M(X):.|
000009B0: 31 2C 28 58 AB 31 29 AC 31 30 AA 59 AB 31 3B A3 |1,(X.1).10.Y.1;.|
000009C0: 35 29 3B 42 24 28 58 2C 59 29 3A 82 59 2C 58 00 |5);B$(X,Y):.Y,X.|
000009D0: F7 11 0C 03 98 31 3A 98 31 2C 39 39 3B A3 35 29 |.....1:.1,99;.5)|
000009E0: 22 51 55 49 54 20 5A 4F 4E 44 45 52 20 54 45 20 |"QUIT ZONDER TE |
000009F0: 4B 49 45 5A 45 4E 22 00 25 12 20 03 98 31 3A 98 |KIEZEN".%. ..1:.|
00000A00: 31 3A 98 31 2C 22 4B 4F 52 54 45 20 49 4E 53 54 |1:.1,"KORTE INST|
00000A10: 52 55 43 54 49 45 20 56 4F 4F 52 20 47 45 42 52 |RUCTIE VOOR GEBR|
00000A20: 55 49 4B 2E 22 00 6A 12 25 03 98 31 3A 98 31 2C |UIK.".j.%..1:.1,|
00000A30: 22 2D 57 45 47 47 45 53 43 52 45 56 45 4E 20 50 |"-WEGGESCREVEN P|
00000A40: 55 4C 4C 2D 44 4F 57 4E 20 4D 45 4E 55 20 48 45 |ULL-DOWN MENU HE|
00000A50: 45 54 20 27 50 44 30 27 2E 20 44 49 54 20 4C 41 |ET 'PD0'. DIT LA|
00000A60: 44 45 4E 20 4D 45 54 3A 20 22 00 A4 12 2A 03 98 |DEN MET: "...*..|
00000A70: 31 2C 22 20 20 20 20 20 20 20 20 42 49 4A 56 2E |1," BIJV.|
00000A80: 3A 20 20 20 49 46 20 46 4C 3D 30 20 54 48 45 4E |: IF FL=0 THEN|
00000A90: 20 46 4C 3D 31 3A 20 4C 4F 41 44 27 50 44 30 27 | FL=1: LOAD'PD0'|
00000AA0: 2C 38 2C 31 00 F0 12 2F 03 98 31 2C 22 2D 27 53 |,8,1.../..1,"-'S|
00000AB0: 59 53 20 35 30 30 30 30 27 20 47 45 45 46 54 20 |YS 50000' GEEFT |
00000AC0: 50 44 20 4D 45 4E 55 2E 20 47 45 42 52 55 49 4B |PD MENU. GEBRUIK|
00000AD0: 20 4A 4F 59 53 54 49 43 4B 2C 4F 46 3A 20 43 52 | JOYSTICK,OF: CR|
00000AE0: 53 52 2D 44 2C 2D 52 2C 5E 2C 5F 2C 52 45 54 2E |SR-D,-R,^,_,RET.|
00000AF0: 00 3B 13 34 03 98 31 2C 22 2D 27 50 45 45 4B 28 |.;.4..1,"-'PEEK(|
00000B00: 32 29 27 20 47 45 45 46 54 20 57 41 41 52 44 45 |2)' GEEFT WAARDE|
00000B10: 20 56 41 4E 20 47 45 4B 4F 5A 45 4E 20 4D 45 4E | VAN GEKOZEN MEN|
00000B20: 55 2D 50 55 4E 54 2E 20 45 45 52 53 54 45 20 56 |U-PUNT. EERSTE V|
00000B30: 41 4E 20 4E 4F 20 31 20 3D 30 30 00 86 13 39 03 |AN NO 1 =00...9.|
00000B40: 98 31 2C 22 20 54 49 45 4E 44 45 20 56 41 4E 20 |.1," TIENDE VAN |
00000B50: 4E 4F 20 35 20 3D 34 39 2E 20 20 48 49 45 52 4D |NO 5 =49. HIERM|
00000B60: 45 45 20 4B 41 4E 20 48 45 54 20 4D 45 4E 55 50 |EE KAN HET MENUP|
00000B70: 55 4E 54 20 55 49 54 47 45 56 4F 45 52 44 20 57 |UNT UITGEVOERD W|
00000B80: 4F 52 44 45 4E 21 00 B2 13 3E 03 98 31 2C 22 20 |ORDEN!...>..1," |
00000B90: 28 5A 49 45 20 56 4F 4F 52 42 45 45 4C 44 20 49 |(ZIE VOORBEELD I|
00000BA0: 4E 20 36 34 2D 45 52 20 31 30 2F 38 37 20 50 37 |N 64-ER 10/87 P7|
00000BB0: 34 29 00 FA 13 48 03 98 31 2C 22 2D 27 53 59 53 |4)...H..1,"-'SYS|
00000BC0: 20 34 39 36 36 34 27 20 47 45 45 46 54 20 41 4C | 49664' GEEFT AL|
00000BD0: 4C 45 45 4E 20 44 45 20 4B 4F 50 52 45 47 45 4C |LEEN DE KOPREGEL|
00000BE0: 2C 20 5A 4F 4E 44 45 52 20 50 52 47 2E 4F 4E 44 |, ZONDER PRG.OND|
00000BF0: 45 52 42 52 45 4B 49 4E 47 2E 00 3C 14 52 03 98 |ERBREKING..<.R..|
00000C00: 31 2C 22 2D 27 53 59 53 20 34 39 31 35 32 27 20 |1,"-'SYS 49152' |
00000C10: 53 43 48 41 4B 45 4C 54 20 4F 56 45 52 20 4F 50 |SCHAKELT OVER OP|
00000C20: 20 41 4E 44 45 52 45 20 44 41 4E 20 43 52 53 52 | ANDERE DAN CRSR|
00000C30: 2D 54 4F 45 54 53 45 4E 3A 20 22 3B 00 5E 14 57 |-TOETSEN: ";.^.W|
00000C40: 03 98 31 2C 22 31 3D 5E 20 32 3D 52 20 33 3D 55 |..1,"1=^ 2=R 3=U|
00000C50: 49 54 20 34 3D 4C 20 35 3D 4B 49 45 53 2E 00 65 |IT 4=L 5=KIES..e|
00000C60: 14 84 03 A0 31 00 6B 14 0F 27 80 00 8A 14 10 27 |....1.k..'.....'|
00000C70: 8F 20 43 4F 44 45 20 42 45 52 45 4B 45 4E 45 4E |. CODE BEREKENEN|
00000C80: 20 45 4E 20 4E 41 41 52 20 4C 00 A6 14 1A 27 81 | EN NAAR L....'.|
00000C90: 49 B2 31 A4 C3 28 54 24 29 3A 41 24 B2 CA 28 54 |I.1..(T$):A$..(T|
00000CA0: 24 2C 49 2C 31 29 00 B3 14 24 27 99 22 13 22 3B |$,I,1)...$'.".";|
00000CB0: 41 24 3B 00 C6 14 2E 27 97 4C AA 49 AB 31 2C C2 |A$;....'.L.I.1,.|
00000CC0: 28 31 30 32 34 29 00 CD 14 38 27 82 49 00 D3 14 |(1024)...8'.I...|
00000CD0: 42 27 8E 00 00 00 |B'.... |
..)....*********************************
*.Q....* PULL-DOWN MENU'S
*.Y....* UIT:64-ER 10/87 P74
*......*********************************
*......FL.0..M(5),M$(5),B$(5,11)...... F
L.0.FL.1:.".LOADING PD1-4...":."PD1",8,1
...... FL.1.FL.2:."PD2",8,1.&.... FL.2.F
L.3:."PD3",8,1.A.... FL.3.FL.4:."PD4",8,
1.Q....".PULLDOWN MENU MAKER (W)
MAROSOFT"......1,8,15:.1,"R:H#H#H#=PD0".
.....1,A,B$,C,D:.A..0.20......1,"R:PD0=H
#H#H#":.".. PD0 KOMT REEDS OP DEZE DISK
VOOR!"......" ANDERE DISK INLEGGEN. <RET
URN>......A$: 1:.15.)....1,"I": 1.I...."
...U KUNT 5 HOOFDMENU'S AANMAKEN VAN ELK
MAX 7 TEKENS."......".WILT U DE NAMEN
INTIKKEN?".K....".KIES NU LETTERTYPE (K
LEIN OF GROOT) VOORUW PROGRAMMA...".....
.X.1.5:B$." ":. X.5.B$.""...(.."MENU"X":
";...2..T$...<..C(T$).7.(X.5)..".";:.40.
%.F...<.P..C(T$).7.(X.5).100.N.Z.T$.T$."
":.80.P.D.M$(X).T$:T$."":.:."........ "
.W.N..X...X.ME$." "......X.1.5:ME$.ME$.M
$(X)." ":.X.A...."."ME$;:.X.1.40:."=";:.
X......:."...^ ZO ZIET DE KOPREGEL ERUIT
. OK? (J/N)"... ..A$:.A$."".160......A$
.."J".10.I.H.."..GEEF NU HET AANTAL COMM
ANDO'S PER MENU:".T.R..X.1.5.R....".MENU
"X": ".M$(X):.M(X)......M(X).10.M(X).1..
"...";:.220......X......"..EN NU DE COMM
ANDO'S:"......"(MAX 17 TEKENS, GEEN ','
OF ':')......X.1.5:.".VOOR MENU"X": "M$(
X)" ("M(X)")."......Y.1.M(X)./....Y":":.
B$(X,Y).M."..C(B$(X,Y)).17..".";:.280.D.
#..C(B$(X,Y)).17.293...$.B$(X,Y).B$(X,Y)
." ":.291...%.B$(X,Y)."= ".B$(X,Y)." =".
I.,..Y:B$(X,Y)."=====================":.
X...6.."... (1) OVERZICHT OP BEELDSCHER
M...7..". (2) OVERZICHT OP PRINTER.9.8.
.". (3) DATA BEREKENEN EN SAVEN".V.@..A
$:A.E(A$):.A.0.A.3.320.C.J..A.3.500.N.T.
.1,2.A..^..1:.1:.1,ME$...H..X.1.5:.1:.1
,M$(X)":":.1...R..Y.1.M(X):.1,Y" -"B$(X
,Y).D.|..Y,X.K... 1......X.1.3000:......
.310......".....EVEN GEDULD, IK REKEN...
.. _ HIER CODE-TEST!.4.... HEADER (KOPRE
GEL).N...L.49408:T$.ME$:.10000.Y....X.1.
5.M....50927.X,M(X).1.T.&..X...0.L.51712
...:..X.1.5:L.L.256.A.D.T$."":.Y.1.M(X).
1:T$.T$.B$(X,Y):.Y:.10000.H.N..X...X..".
_ COUNTDOWN "...\.."DIS
KETTE IN DRIVE! OK? RETURN!"...]..A$.C.B
..".......IK BEN NU AAN HET SAVEN!".X.L.
.1,8,2,"PD0,P,W".L.V..1,G(0);G(192);....
..X.49152.53247:."."53247.X" "......1
,G(B(X));:.X..... 1......"....CODETABEL
EN KORTE GEBRUIKS-AANWIJZING UITPRINTEN
? (J/N)"...F..A$:.A$."".710...P..A$.."J"
.9999...Z..1,4.I....1,"CODETABEL VOOR PU
LLDOWN-MENU'S (W) MAR
OSOFT '86......1:.1,"KOPREGEL:":.1,ME$.
....X.1.5:.1:.1,M$(X):.1.O....Y.1.M(X):.
1,(X.1).10.Y.1;.5);B$(X,Y):.Y,X......1:.
1,99;.5)"QUIT ZONDER TE KIEZEN".%. ..1:.
1:.1,"KORTE INSTRUCTIE VOOR GEBRUIK.".J.
%..1:.1,"-WEGGESCREVEN PULL-DOWN MENU HE
ET 'PD0'. DIT LADEN MET: "...*..1,"
BIJV.: IF FL=0 THEN FL=1: LOAD'PD0'
,8,1.../..1,"-'SYS 50000' GEEFT PD MENU.
GEBRUIK JOYSTICK,OF: CRSR-D,-R,^,_,RET.
.;.4..1,"-'PEEK(2)' GEEFT WAARDE VAN GEK
OZEN MENU-PUNT. EERSTE VAN NO 1 =00...9.
.1," TIENDE VAN NO 5 =49. HIERMEE KAN H
ET MENUPUNT UITGEVOERD WORDEN!...>..1,"
(ZIE VOORBEELD IN 64-ER 10/87 P74)...H..
1,"-'SYS 49664' GEEFT ALLEEN DE KOPREGEL
, ZONDER PRG.ONDERBREKING..<.R..1,"-'SYS
49152' SCHAKELT OVER OP ANDERE DAN CRSR
-TOETSEN: ";.^.W..1,"1=^ 2=R 3=UIT 4=L 5
=KIES..E... 1.K..'.....'. CODE BEREKENEN
EN NAAR L....'.I.1.C(T$):A$.J(T$,I,1)..
.$'.".";A$;.F..'.L.I.1,B(1024).M.8'.I.S.
B'....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL