home *** CD-ROM | disk | FTP | other *** search
- .SET #8(*1, *)
- .LET (*#34=#34+#8*) TEXT
- .LET (*#21=#21+#6*)
- .SCR 2
- .PUT PART=(*AM0504A.LIB*)
- @GOB:SCREEN10 PROG=AM0504B1.CHA
- @LAB:SCREEN22H
- .SCR 1
- .PUT PART=(*AM0504.LIB*)
- .COL 1,
- .LOC 14,8(*Do you wish to:*)
- .COL 2,
- .LOC 16,4(*(C) continue to the next Part*)
- .LOC 18,4(*(R) return to the Contents page*)
- .COL 1,
- .LOC 20,8(*Please type C or R >*)
- .COL 3,
- @SIN (*"C"=C:AM0504C.CHA,"c"=C:AM0504C.CHA,"R"=L:BACKB,"r"=L:BACKB*)
- @LAB:BACKB
- @GOB:SCREEN09 PROG=AM0504
-