Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » P/PTDemo
P/PTDemo
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF |
| Filename: | P/PTDemo |
| Read OK: | ✔ |
| File size: | 021F bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » P/PTDemo
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » PT4/P/PTDemo
- Personal collection » Acorn hard disk » zipped_disks » elk03 » eug39/P/PTDemo
File contents
10 REM Programming Technique Demo Part 4: Screen Memory Written by Dominic Ford 1998
20 :
30 REM Main menu
40 REPEAT
50 MODE 6:PRINT" Programming Technique Demonstrations Part 4: Screen Memory Written by Dominic Ford 1998"
60 PRINT'"Please select:"''"1. Start Sprite Editor."'"2. View Bat&Ball Demonstration."'"3. Viewing Walking Demonstration."'"4. Quit."
70 REPEAT:key$=GET$:UNTIL INSTR("12345",key$)<>0
80 IF key$="1" THEN CHAIN"Editor"
90 IF key$="2" THEN CHAIN"BatBall"
100 IF key$="3" THEN CHAIN"Walking"
110 UNTIL key$="4"
120 MODE 6:END
r � Programming Technique Demo Part 4: Screen Memory Written by Dominic Ford 1998 : � Main menu ( � 2 � 6:�" Programming Technique Demonstrations Part 4: Screen Memory Written by Dominic Ford 1998" <� �'"Please select:"''"1. Start Sprite Editor."'"2. View Bat&Ball Demonstration."'"3. Viewing Walking Demonstration."'"4. Quit." F! �:key$=�:� �"12345",key$)<>0 P � key$="1" � �"Editor" Z � key$="2" � �"BatBall" d � key$="3" � �"Walking" n � key$="4" x � 6:� �
00000000 0d 00 0a 72 20 f4 20 50 72 6f 67 72 61 6d 6d 69 |...r . Programmi| 00000010 6e 67 20 54 65 63 68 6e 69 71 75 65 20 44 65 6d |ng Technique Dem| 00000020 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |o | 00000030 20 50 61 72 74 20 34 3a 20 53 63 72 65 65 6e 20 | Part 4: Screen | 00000040 4d 65 6d 6f 72 79 20 20 20 20 20 20 20 20 20 20 |Memory | 00000050 20 20 20 20 20 20 57 72 69 74 74 65 6e 20 62 79 | Written by| 00000060 20 44 6f 6d 69 6e 69 63 20 46 6f 72 64 20 31 39 | Dominic Ford 19| 00000070 39 38 0d 00 14 06 20 3a 0d 00 1e 10 20 f4 20 4d |98.... :.... . M| 00000080 61 69 6e 20 6d 65 6e 75 0d 00 28 06 20 f5 0d 00 |ain menu..(. ...| 00000090 32 7f 20 eb 20 36 3a f1 22 20 20 50 72 6f 67 72 |2. . 6:." Progr| 000000a0 61 6d 6d 69 6e 67 20 54 65 63 68 6e 69 71 75 65 |amming Technique| 000000b0 20 44 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 73 20 | Demonstrations | 000000c0 20 20 20 20 20 20 20 20 20 20 20 50 61 72 74 20 | Part | 000000d0 34 3a 20 53 63 72 65 65 6e 20 4d 65 6d 6f 72 79 |4: Screen Memory| 000000e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000f0 57 72 69 74 74 65 6e 20 62 79 20 44 6f 6d 69 6e |Written by Domin| 00000100 69 63 20 46 6f 72 64 20 31 39 39 38 22 0d 00 3c |ic Ford 1998"..<| 00000110 83 20 f1 27 22 50 6c 65 61 73 65 20 73 65 6c 65 |. .'"Please sele| 00000120 63 74 3a 22 27 27 22 31 2e 20 53 74 61 72 74 20 |ct:"''"1. Start | 00000130 53 70 72 69 74 65 20 45 64 69 74 6f 72 2e 22 27 |Sprite Editor."'| 00000140 22 32 2e 20 56 69 65 77 20 42 61 74 26 42 61 6c |"2. View Bat&Bal| 00000150 6c 20 44 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 2e |l Demonstration.| 00000160 22 27 22 33 2e 20 56 69 65 77 69 6e 67 20 57 61 |"'"3. Viewing Wa| 00000170 6c 6b 69 6e 67 20 44 65 6d 6f 6e 73 74 72 61 74 |lking Demonstrat| 00000180 69 6f 6e 2e 22 27 22 34 2e 20 51 75 69 74 2e 22 |ion."'"4. Quit."| 00000190 0d 00 46 21 20 f5 3a 6b 65 79 24 3d be 3a fd 20 |..F! .:key$=.:. | 000001a0 a7 22 31 32 33 34 35 22 2c 6b 65 79 24 29 3c 3e |."12345",key$)<>| 000001b0 30 0d 00 50 1b 20 e7 20 6b 65 79 24 3d 22 31 22 |0..P. . key$="1"| 000001c0 20 8c 20 d7 22 45 64 69 74 6f 72 22 0d 00 5a 1c | . ."Editor"..Z.| 000001d0 20 e7 20 6b 65 79 24 3d 22 32 22 20 8c 20 d7 22 | . key$="2" . ."| 000001e0 42 61 74 42 61 6c 6c 22 0d 00 64 1c 20 e7 20 6b |BatBall"..d. . k| 000001f0 65 79 24 3d 22 33 22 20 8c 20 d7 22 57 61 6c 6b |ey$="3" . ."Walk| 00000200 69 6e 67 22 0d 00 6e 0f 20 fd 20 6b 65 79 24 3d |ing"..n. . key$=| 00000210 22 34 22 0d 00 78 0a 20 eb 20 36 3a e0 0d ff |"4"..x. . 6:...| 0000021f
.